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H 2 | 
16-Sep-1984 00:53:1 VAX=-11 Bliss-32 V4.0-742 1 ROE 
Hae 90:33:03 DISKSVMSMASTER:CF11X.SRCIRDBLOK. B32; f29 * | v04 
; 1 001 MODULE RDBLOK ( 
3 ¢ 0 ¢ LAN GUAGE (BLISS 34) « 
3 0 IDENT 
: 4 004 des 
: ‘ 4 ; BEGIN | 
4 ' 
: 8 s'd4 : PITIIILILILILILI LLL LILI LLL LLL Lii iii tiiiiiiiiiiiiiiiiiiiii i. 
3 y 009 1 !* * 
a 010 1 !* COPYRIGHT as 1978, 1980, 1982, 1984 BY * 
Beak 0011 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
3 \¢ 8818 ! ;* ALL RIGHTS RESERVED. ? 
; 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE wees ~~ CopieD * 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE D WITH THE * 
; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE on” ANY OTHER * 
fen 0017 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 8 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1 OO : . TRANSFERRED. : 
: st 8053 1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $6 00 ; 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5 $7 oo5z ! - CORPORATION. : 
; 35 BoSe 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR Se SABEL ITY OF ITS * 
3 $§ 4 $ : be SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL : 
. i* | 
.. a $058 1 Ie * | 
3 9 594 LL eee Ree RRR REAR A EAA EE ERATE EAE AAA A AERA RARERAEEAERE EERE 
eee Bt de 
: é 005¢ 1 | 
3 0033 1! FACILITY: F11IACP Structure Level 2 
3 4 0034 1! | 
3 2 tk : ABSTRACT: | 
; 7 0037 1! This module contains routines for basic block 1/0, as well 
3 8 0038 1! as the buffer management mechanism. 
. 0039 1! | 
3 7 ppee : ENVIRONMENT : 
: $§ OOt§ 1 i STARLET operating system, including privileged system services -s 
s 6 0043 1! and internal exec routines. ; 
3; 4b 044 1! 
; 2 boc 1 i 
Se 0047 1! 
3 $8 sk : AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 22:48 
; 30 9050 i MODIFIED BY: 
; 2g 0082 1} v03-032 cpsoots Christian D. Saether 30-Aug-1984 
3 34 0084 : Allow for multi-header directory files. 
. or ae 055 1 | v03-031 cps0014 Christian D, Saether 24-Aug-1984 
; 28 Bne$ 1! Removing an entry from the d firectory index cache 
: 7 057 71! free List had one too many levels o indirection, 


REIRDBLOK.B32:1° 7" (15 


-Sep-1984 VAX=-11 Bliss-32 V4.0-74 
1$-$60-1964 00:55:11 VAT? BLissas2 v4. 0-74 


an 


: : $e ! } occasionally messing up the queue. ; 
: 60 60 1 v03-030 CDS0013 Christian D. Saether 7-Aug-1984 
: ? bes : } Add KILL_DINDX routine. Remove tests for dire fc y 
#3. O66 1; and primary_fcb in unhook_bfrd = the fcb$v_dir flag : 
oo: ae Bert handles thoSe conditions Correctly. | 3 
3; 63 0065 1: v03-029 CDdS0012 Christian D. Saether tu 1984 | : 
Peo md Sy ye ae ee pee eel 
° ° . or cs : 
: 69 Mh ! } Use L "NORM Linkage for UNHOOK _BF F pteng Baa! dismount : 
: 70 070 1: v03-028 CDS0011 Christian D. Saether 15-Jul-1984 | 
; a 071 1 had sunsert for asiateinina 67 | 
: f 0072 1 } Add MA E _DIRINDX anion, eet ee eee ; 
: oF Betz : } Remove intermediate blocks from CDS0010. The , 
: a +e problem was in the form of the bind_common F 
: 7 007% 1 | declarations and was resolved there. 3 
le i 0077 1! v03-027 CDS0010 Christian D. Saether 7=-Jul-1984 
; 4 pore 1 } Break up READ_BLOCK ama FIND BUFFER into onal Lor | : 
: 80 0080 1 | blocks to stop the absurd amount of cse that the 3 
; & eos) 1 i compiler generates. | 3 
3 8 00 1 i v03-026 CDS0009 Christian D. Saethe -Jul-1984 
: 8 $088 4 Remove CACHELOCK consistency check a shot jut ’ | : 
2 Re Boe : can be used ty sts DISKREAD flag. | ; 
Pay ae obey i Raise minimum file fheader requirements to 3 buffers | : 
; FF ts from 2 tot ved 3 
; 8 0088 1} v03-025 CDS0008 Christian D. Saeth 46-Jun-1984 
: 44 494 | Restore multi-block read capability. eee : 
i 9 e091 1 | v03-024 cD$0007 Christian D. Saether 20-Jun-1984 | : 
2 B08 : } Raise/lower process diocnt around qio so that file | ; 
: 4 a system i/o is not blocked for lack of quota. Do 3 
; 35 + ae same for ASTCNT so it does not fail for lack of ; 
; 4 008% 1 i ast quota either. | 3 
Re 0097 1! v03-023 cDs0006 Christian D. Saether 25-May-1984 | : 
; + 0098 1 When not cluster accessible, do not bump 3 
ary + 0099 1 sequence number on modifies. 3 
2 8190 : Add routine to scan appropriate pool and kick 3 
: 108 610 1 / out buffers of a given type. : 
: 4 O108 1 : V03-022 Expand test for clupterness to test whether we are : 
2 18 0105 ! are a cluster at a 2 
; 106 106 1! v03-021 cDs0004 Christian D. Saether __8-May~1984 
: +34 O10? 1 Do not leave lock on buffer if not cluster mares : 
: is 34 ! aoaity 9 buffer validation for bitmap, index, and quota 3 
: t40 10673 type buffers. 

; 11 W114! v03-020 cDS0003 Christian D. Saether 10-Apr-1984 

a Hg | Bon@*22r°FALtSe BiRty" in byed SeUERECTE puoce | 

+ 114 0114 1! for special lbn -1. Set VALID, DIRTY in bfrd in | 
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1 ~300 7182 90:33:03 DISKSVMSMASTER=CF11X.SRCIRDBLOK.B32:1° (1) 


RESET_LBN routine. 


v03-019 cospooe Christian D. Saether 64-Apr-1984 
On lockbasis mismatch, when tolerated at all (for 
blocks in the data or headers), toss the buffer out 
to get the lock dissociated because it's the wrong 
one. 
v03-018 CDS0001 Christian D. Saether 20-Mar-1984 
Establish BASE as AST parameter in SERIAL_CACHE routine. 
v03-017 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:47 
Add AST parameter so that impure storage is fully based 
v03-016 ACG0403 Andrew C. Goldstei 15-Mar-1984 17:35 


n 
Correct test for new buffer in WRONG LOCKBASIS; 
fix buffer address computation in TOSS_CACHE_DATA. 


v03-015 CDS Christian D. Saether 9-Mar-1984 ; 
Rewrite cache routines for shared paged pool caching. 


a 
1% 


LIBRARY see pat LORARY 1h 18, L52"2 
REQUIRE ‘SRC$:FCPDEF .B32'; 


FORWARD ROUTINE 
GET_REQD BFR_CREDITS : L_NORM NOVALUE, 
TORN_BFRD : L_JSBTARG NOVALUE , 
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HSHTBL = .CACHE_HDR CF11BC$L_LBNHSHBAS) : VECTOR C,WORDJ; 


ee ee a ee ed ed ed ed nd nd ed ed od ed 
a ht 9 hs 4H QODOOO OO OOOO COCO COC OCO COCO 
= ODONAN EWI OC OD NAUE WN @OODNAUNEWN MOOD NAU EWN ODOR NOUN EWN OOO NOU 


ee a ee ee a a a a el a a ed a ed a a ad od od ad add dD 
PDP BB BS BS BEE BE EAA BAAN IIInnnononnononong) 2 2 2 
a ee ee ee ee a ee a ee ee ee ee a ee a a ed a 


INVACIDATE : LZNORM NOVALUE, 
UNHOOK_BFRD : LINORM NOVALUE, 
WRITE BLOCK : LINORM NOVALUE, 
FREE_ONE : L>JSB NOVALUE, 
WAKE- WAITER : NOVALUE, 
RELEASE CACHE : L_JSB NOVALUE, 
SERIAL_CACHE L-JSB NOVALUE; 
EXTERNAL ROUTINE 
WAIT_FOR_AST : NOVALUE, ' exit thread until completion ast 
CONTINUE_THREAD : NOVALUE; ! completion AST to resume thread 
EXTERNAL 
CTL$GL_PHD : REF BBLOCK ADDRESSING_MODE (GENERAL), 
CTL$GL_PCB : REF BBLOCK ADDRESSING_MODE (GENERAL); 
MACRO 
QFLNK = 0.0.38 -8 # 
QBLNK = 4,0, 0 i, 
° " LOOKUP_LBN (LBN) = 
6 K BEGIN 
g i. BIND 
- 
7 m4 
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HSHTBL = .CACHE_HDR CF11BCS$L_BLHSHBAS] : VECTOR C,WORDI; 
ae CABS ((LOCKBASIS + PARLKID) MOD .CACHE_HDR CF11BC$W_BLHSHCNTI)J 
| 
| 
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M od CABS (LBN MOD .CACHE_HDR CF11BC$W_LBNHSHCNT))3 
7 o 

f LOOKUP_LOCK (LOCKBASIS, PARLKID) = 

7? BEGIN 

7 BIND 
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Calculate address of given descriptor within l-based descriptor blockvectors. 


BFRD_ADDR (BASTINDX) = 
-CACHE_HDR CF11BCSL_BFRDBAS] + (BASTINDX = 1)*BFRDSS_BFRDDEF 2%, 


BFRLD_ADDR (BAS1IINDX) = 
-CACHE_HDR CF11IBCSL_BFRLDBAS] + (BASTINDX = 1)*BFRLSS_BFRLDEF 2%; 


BIND 


POOL _ TABLE = UPLIT BYTE ( 2 file headers 


' 
° ! storage map 

' directories 

' index file blocks 

' random data blocks 

! quota file blocks 

! directory index blocks 
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GLOBAL ROUTINE MAKE_DIRINDX (FCB) : L_NORM = 


FUNCTIONAL DESCRIPTION: 


This routine validates the directory index pointed to from the 
given FCB, under the cache interlock. 


If the given FCB does not have a directory index, attempt to 
attach one to it. 


ROUTINE VALUE: 


0 - if the given FCB is invalid 
1 = if the given FCB is valid 


BEGIN 
MAP 
FCB : REF BBLOCK; 
BIND_ COMMON; 
EXTERNAL 
PMSS$GL_DIRHIT : ADDRESSING_MODE (GENERAL), 
weit PMS$GL-DIRMISS : ADDRESSING-MODE (GENERAL): 
DIRINDX : REF BBLOCK FIELD (DIRC), 
DNDX_BFRD : REF BBLOCK 
FCBVALID : INITIAL (05; 


IF _,LB_HDRSEG (.DIR_LCKINDX] EQL 0 

LB_HDRSEQ (.DIR_LCKINDX] = .LB_HDRSEQ C.DIR_LCKINDX] + 1; 
IF _<LB_DATASEG [.DIR_LCKINDX] EQL 0 

LB_DATASEQ C.DIR_LCKINDX] = .LB_DATASEQ C.DIR_LCKINDX) + 1; 
SERIAL_CACHE (); 
If _(DIRINDX = .FCB CFCBSL_DIRINDX]) EQL 0 


POOL _CRU : REF BBLOCK; 
POOL_LRU = CACHE_HDR CF11BC$Q_POOL_LRU] + 3*8; 
REMQUE (.POOL_LRU COFLNK], DNDX_BFRD); 
INDXO = ((.DNDX_BFRD = .CACHE_HOR CF11BC$L_BFRDBAS)) /BFRDSS_BFRDDEF); 
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m 2 
Sep-1984 VAX=11 
1 o28ep- 1382 98: 33: i) DISKSVM 
UNHOOK _BFRD (.INDXO + 1, .DNDX_BFRD); 
DIRINDX = (.INDXO*512) + .CACHE_HOR CF11BCSL_BUFBASE); 


NDX_BFRD [BFRDSL_LBN) = 
NDX-BFRD CBFRDSB =BIVPE : sblanox 
DNDX"BFRD BERDSLL 8 “BASE C.DIR_LCKINDXI; 
DNDX"BFRD (BFRD$ we = “att REN T_OCB; 
FCB CFCBSL rRERIND = gQIRIN 
DNDX BERD TBFROSY AL{D] = : 
IRIRNDX COIRCSW_I RUSE 
PMSSGL _ IRMISS = .PMSSGL J Men +1; 
SE 
BEGIN 


+ 


DNDX_BFRD = (CC, DIRINDX = .CACHE HDR CF11BCS$L_BUFBASE))/512) *BFRDS$S_BFRDDEF ) 


+ ,CACHE_HDR CF11BC$C_BFRDBAS); 
REMQUE (.DNDX_BFRD, DNDX_BFRD); 
JF; DNOX_BFRD CBFRDSL_SEQNUM] EQL .LB_HORSEQ C.DIR_LCKINDX] 
BEGIN 
FCBVALID = 1; 
IF je IRINOK CDIRCSL_DATASEQ] NEQ .LB_DATASEQ C.DIR_LCKINDX) 
BEGIN 
DIRINDX CDI IRCS wl SE} = 
PMS$GL_DIRMISS MSSGL 
a 
PMSS$SGL_DIRHIT = .PMS$GL_DIRHIT + 1; 


0; 
_DIRMISS + 1; 
ELS 


BEGIN 
DIRINDX Cp4 RC$W_INUSE) = 
PMSS$GL_DIRMISS = .PMSSGL Sinmiss +1; 


IF .BFRS_USED (3) NEQ 0 
THEN 
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BUG_CHECK (XQPERR, ‘should not have any in use’) 

BFRS_USED (3) = 1; 

-DNDX_BFRD CBFRDSW_CURPID] NEQ 0 

BUG_CHECK (XQPERR, ‘directory index buffer should not be in use’) 
DNDX_BFRD CBFRDSW_CURPID] = .CTLSGL_PCB CPCBSL_PID]; 


INSQUE (.DNDX_BFRD, .BFR_LIST C3, QBLNK)); 
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16-Sep-1984 :53:1 VAX-11 Bliss-32 V4.0-742 7 
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-FCBVALID 
END; ! of routine MAKE_DIRINDX 


1 

137 RELEASE _CACHE (); 
ei 

1 
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«TITLE ROBL 
IDENT \V £-500\ 


»PSECT Sra ee ceed | 
03 01 01 02 01 00 O02 00000 P.AAA: .BYTE 2, 0, 1, 2, 1, 1, 3 ; 
POOL _ TABLE= P.A | 

«EXTRN eet FOR Mast tre ~ THREAD | 


SEXTRN CITLSGL_PAD, CTLSGL 
*EXTRN passer “DIRHIT,  PMSSGL _DIRMISS 


-EXTRN BUGS_ KOPERR 
01FC 00000 ENTRY MAKE DIRINDX, Save R2,R3,R4,R5,R6,R7,RB : 1192 
58 CC AA 9E itd OVAB (BASE), R& + 1214 
55 AA 9E 00006 MOVAB 3 (BA ASE), R5 ; 
56 00D4 cA 9E OOO0A MOVAB 212(BASE). R6 3 
7 D4 9000F CLRL  FCBVALID 3 
50 66 DO 00011 MOVL  (R6), RO : 1226 
50 0094 CA40 DE 00014 MOVAL  148(BASE)CROJ, RO : 
60 DS OOO1A TSTL (RO) : 
02 12 0001C BNEQ «1 ; 
60 D6 0001 INCL (RO) ; 1228 
50 66 D0 00020 1$: MOVL  (R6), RO : 1230 
50 O0A8 CA4O DE 000 MOVAL  168(BASE)CROJ, RO 3 
69 D5 00029 TSTL (RO) ; 
2 12 00028 BNEQ 2$ ; 
6 06 002) INCL (RO) : 1232 
0000v OO2F 2$: BSBW SERIAL_CACHE > 1234 
50 04 AC dO 00032 MOVL FCB : 1236 
4 0080 £0 ff 00 MOVL 176{R0), DIRINDX : 
50 FC AA 00000040 &F f 60 D L3. #64, -4(BASE), POOL_LRU > 1243 F 
52 00 B80 OF 0046 REMGUE @0(POOL_LRU), DNDX_BFRD + 1245 ; 
50 FC AA DO 0004A OVL -4(BASE + 1247 : 
50 38 18 AO C 904 UBL 24(R0), ONDX BFRD. RO : : 
5 : C 5 DIVL3 #32, RO, INDR ; 3 
bb 0 PUSHL DNDX_BFRD + 1249 | ; 
01 =A F $ 9 PUSHAB 1(INBXO) : 3 
0000v CF 0 F ¢ CALLS 4, UNHOOK _BF RD : ; 
53 ; 7 61 ASHL #9, R3, R s 1251} 3 
54 FC «OBA CC 65 ADDL3 a@-4(BASE), R3, DIRINDX : ; 
08 A 046 AC D 6A MOVL FCB, 8(DNOX_BFRD) : 1 53 : 
19 A 06 9 OO6F MOVB #6, 25(DNDX~BFRD) : 1254 : 
5 66 D ; MOVL  (R6), RO : 1255 | : 
10 A 0080 ca40 D 7 MOVL 12 (GSE) CROJ 16 <DNDX pee ; | ; 
OC A 4 AA D 7 MOVL  =108(BASE), 12(DNDX_B ; 1256, : 
5 04 ac D MOVL FCB, RO + 1257 | 3 
0080 _—(¢ 54 00 000 MOVL DIRINDX, 176(RO) : | : 
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GLOBAL ROUTINE KILL_DINDX (FCB) : L_NORM NOVALUE = 
'e¢ 
! 
FUNCTIONAL DESCRIPTION: 
Invalidate the directory index block pointed to by 


i 
i 
i 
; the given fcb, if any. This is done under the cache 
serialization lock. 

le 


WARP PORON 2 


PWN ("OC OODNOVN EWN OOONOUE wr 


BFRD CBFRDS$L~LBN 
END; 
END 


: 4 1 1 ‘ 
3 5 1 1 ‘ 
3 $ 1 1 : 
; 1 1 ° 
; 8 1 1 ‘ 
: 9 1 1 ’ 
3 0 1 1 : 
: 1 1 1 ° 
: ¢ 1 1 > 
: 1 1 : 
i 36 1358 
; 36 1 BEGIN | : 
38 : MAP | 
H 24 ! FCB REF BBLOCK; ‘ 
3 : 
: a : BIND_COMMON; : 
; 308 1 LOCAL : 
s 44 3 INDXO, : 
; 345 1 BFRD _—: REF BBLOCK, | : 
: 346 13 DIRINDX : REF BBLOCK, : 
; 8 4 133? PIDINDX : WORD; : 
365 1337 2 SERIAL_CACHE (; | 
: 351 1339 IF (DIRINDX = .FCB CFCBSL_DIRINDX]) NEQ 0 ; 
3 26 1340 THEN 3 
3 5 1341 BEGIN : 
H 54 1366 INDXO = (.DIRINDX = .CACHE_HOR CF11BC$L_BUFBASE))/512; ; 
; $22 1eer BFRD = .CACHE_HDR CF11BCSL_BFRDBAS] + BFRDS$S_BFRDDEF*(.INDXO); | : 
mh 1345 PIDINDX = .CTLSGL_PCB CPCBSL_PID); : 
: 359 1349 IF .BFRD CBFRDSW_CURPID] NEQ 0 | : 
: 360 1348 THEN | ; 
; 1349 4 BEGIN 3 
: $6 1329 2 -BFRD CBFRDSW_CURPID] NEQ .PIDINDX ; 
: 3 
3; 364 1336 5 BUG_CHECK (XQPERR, ‘should not belong to anyone else') | 3 
; 365 1353 4 ELS $ 
3 $6 1328 2 BEGIN : 
; 368 i380 5 ! If this one is in-process, simply clear valid to cause it to 3 
: 9 1357 5 ! be cleaned up when locks are run down. Also clear the pointer : 
; : to the fc n the rd. : 
70 135 ! he fcb i he bfrd 
; 4! i Z : 3 
; 18 138 BFRD BFRDSV_VAL 1D] = 0; ; 
; 374 136 = 0; : 
3 75 13635 4 3 
5 76 1364 4 F 
» ave 1365 3 g 
: 78 1366 4 3 
: 79 1367 4 3 
: 1368 4 3 


ONOUS Ww —-OOO~ 


BEGIN 
UNHOOK AY (.INDXO+1, .BFRD); 


IN 
RETURN-BFRD (.BFRD); 
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! of routine KILL_DINDX 


END; 
FCB CFCBSL_DIRINDX) = 0; 


END; 
RELEASE_CACHE (); 
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52 


104 bytes, Routine Base: S$CODE$ + 010E 


3; Routine Size: 


Ee ee Se eee Be bie es Se 
i 


-Sep-1984 00:53:1 VAX=11 Bliss-32 V4,0-742 Pa 11 
met 99°3:03 DISKSVMSMASTER:CF11X.SRCIRDBLOK.B32;1 ” (4) 


; 3 ! 4 ! GLOBAL ROUTINE READ BLOCK (LBN, COUNT, TYPE) : L_NORM = 

; 1 5 1 lee 

: 394 1381 1! 

; 395 ! Bs : FUNCTIONAL DESCRIPTION: 

3 35 13584 1! This routine reads the desired block(s) from the disk. 

; 3598 1 + 1! Blocks are categorized by type to aid buffer management. 

; 99 1 § 1! Note that the caller assumes onty one block is ever read; multiple 

; 4600 1387 1! blocks read ahead are acquired through cache hits on subsequent calls. 

; 401 1388 1 ! CALLING SEQUENCE: 

: 3 : ey : READ_BLOCK (ARG1, ARG2, ARG3) 

; 404 1391 1 =! INPUT PARAMETERS: 

; 405 1336 1! ARG1: LBN of block(s) 

; 406 1393 1! ARG2: number of blocks to read 

; 407 1394 1! ARGS: block type code 

: 408 1395 1! | 
; 409 1 38 1 ! IMPLICIT INPUTS: 

: 410 iver % t 

3: «6411 1398 1 ! OUTPUT PARAMETERS: 

3 sig 1399 1! NONE 

; 41 1400 1! 

: 414 1401 1 =! IMPLICIT OUTPUTS: 
; 6415 1008 ' IO_STATUS receives status of 1/0 transfer | 
; 416 1403 1! 

: #417 14046 1 ! ROUTINE VALUE: 2 

; 418 1405 1! address of buffer containing block 

; 419 1406 1! 

: 420 1407 1 ! SIDE EFFECTS: 

: 421 1408 1! BLOCK READ 
: 42 1409 1! 
3 42 1410 1 !-- 
3: 424 1411 1 

; 425 1412 2 BEGIN 
: 426 1413 2 
: 427 1414 2 
; 428 1415 2 LOCAL 

i; 429 1416 2 I, ! index of buffer used | 

; 430 1417 2 BFRD : REF BBLOCK, ! ponnter to buffer descriptor 

: 431 1418 2 STATUS, ' Q10 service status 

; $34 bd 2 FOUND_COUNT; ! count of buffers gotten 

: 4634 1s! EXTERNAL 

: 4435 14 ¢ ACP$GB_DATACHK : BITVECTOR ADDRESSING_MODE (ABSOLUTE); 

; 436 142 ! ACP datacheck enable flags 

; 437 1424 

; 438 1425 BIND_COMMON; 

; 439 14 $ 

; 440 14 EXTERNAL LITERAL 

: rot i+ ; ACP$V_READCHK : UNSIGNED (6); ! read check enable flag 

3 te§ 1430 ! Find a suitable block buffer. If it does not already contain the block, 

: 446 1431 ' read it. 

: 645 1636 ! 

: 646 oe 

; 647 1434 STSFLGS CSTS_DISKREAD) = 0; 
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; 1 = FIND_BUFFER (.LBN, .TYPE, .COUNT, FOUND COUNT); 

4 BFRD = .CACHE_HDR CF11BCSL_BFRDBAS] + (.1*BFRDSS_BFRDDEF); 
4 IF _<BFRD CBFRDSV_VALID] 

4 RETURN .CACHE_HDR CF118C$L_BUFBASE] + (.1*512); 

d LOCAL 


PTR REF BBLOCK 
SAVE _PRIV : VECTOR (4); 


STSFLGS CSTS_DISKREAD] = 1; | 
PTR = .CTLSGL_PCB: 
PTR CPCBSW sOIOCNT = Pre Pcesu -DIOCNT) + 1; 


_PR $0°P R 
SAVE rts (PT PCBs opniva ae 


PPP PSs Be BB BB BB EB AA 
1 os 
“Oo; 
= 
uu 
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>. 


$ =PHD: 
SAVE_PRIV i ote PHD$Q _PRIVASK}); 
SAVE -PRIV = . (PTR CPHD$Q =PRIVASK +4) 
BBL PTR CPHD$O =PRIVRsKd. P 6.10) 
BBLOCK CPTR CPHD$Q~PRIVMSK ay “breReS] 
PMS_TOT_READ = .PMS_TOT_READ + 1; | 
STATUS. = $010 ¢ 
66 EFN = EFN | 
ASTADR = 
ASTPRM = 
CHAN 
FUNC 


MEAN 0 ODNOAUE WS OOODNAUE WH OOONOM 


POA 


CO 
id CH inner 
10 


-READLBLK 

“ACPSGB DATACHKCACPSY READCHK] 

“saltposiion (1O$V_DATACHECK)), 
| 


0 TUS 
. CACHE _HOR oF 19CSt -BUFBASE] + (.1*512), 
“FOUND. COUNT*512, 
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v 
naunn 


(PTR CPHDSQ_PRIVMSK]) = .SAVE_PRIV (23; 
(PTR PHDSO- gPRIVASK +4) = ,SAVE_PRIV (3); 


$GL | 
PIR Cpcosh DIOCNT = .PTR (PCBSW_ DIOCNT - 1; 
PTR CPCBSW-ASTCNT) = .PTR PCBs A TCNT) = 1 
4 (PTR CPCB$O_PRIV]) = .SAVE PRIV 
#4 (PTR CPCBSQ"PRIVI+4) = SAVE RERIW. 1; 


IF NOT .STATUS 
8 THEN IO STATUS = pans 
i ELSE WATT_FOR_AST() 
1 


IF NOT .JO_STATUS 


4 se sts tcc Sse . - — 
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-EXTRN ACPS$GB_DATACHK, ACP$V_READCHK 


-EXTRN SYS$QIO 
-ENTRY READ_BLOCK, 
cCTL$ 
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R2,R3,R4,R5,R6,R7 


) 
. -(SP) 


Save 
PCB, R7 
SE), RS 
» ~90(BASE) 
BUFFER 
RO 
RO, BFRD 
FRD), 1$ 
~90 (BASE) 
, PTR 
3 P 
( 
T 
RIV 
PTR 
RT 


ie 


hReaage | et 
corn am 
UOrr-0A00-0~-.— 
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BA 
(Ri 
$ 
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pP 
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68710 
$ P 
B8h10 
O(BAS 
P 
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#9, FOUND_COUNT 
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RO 
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#5, 


24 
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9$ 
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“1986 92:35:22 DISkSUmSMASTE 


09 78 ASHL = #9 RO 
41 OF PUSHAB (RO) ERIS 
SA DD PUSHL BAS 
00996 CF OF PUSHAB CONTINUE_ THREAD 
50 000000006 9F 1 006 FF ee Ss 
30 3 oe rs ASHL #14, ROT R 
E 0 C BISL3 # : RO, =(SP) 
FF78 CA OD PUSHL -136(BASE) 
1E DD PUSHL #3 
000000006 0 OC FB CALLS #12, SYS$QIO 
: 0c ag 70 MOVG SAVE PRIV+8, (PTR) 
6 D0 MOVL CTLSGL_PCB, PT 
3 Ag 8 DECW 2(PTRY 
A 87 008 DECW 6 (PTR) 
0084 2 04 ar D 00088 MOVQ  SAVE_PRIV, 132(PTR) 
06 50 £8 OOOBE BLBS TATOS, 
88 AA 30 DO 900¢1 MOVL TATUS, -120(BASE) 
05 11 000¢5 BRB 
00006 CF 00 FB 000¢7 38 CALLS #0, WAIT_FOR_AST 
24 88 AA €E8 O00CC 3$ BLBS  -120(BASE), &$ 
55 6E D0 9009 MOVL  FOUND_COUNT, RS 
52 01 CE 000D MNEGL #1, J 
14 11 0006 BRB a 
51 00 Bs DO 000D8 4$ MOVL @0(R4), RI 
50 56 é ci 00D¢ ADDL3) J RO 
50 50 09 78 O00EO ASHL #9, RO, RO 
6041 9F OO0E4 PUSHAB (RO)CRIJ 
0000v CF 01 FB 000E7 CALLS #1, INVALIDATE 
E8 52 55 F OO0EC 5$ AOBLSS J, 4$ 
88 AA BF 00 FO CHMU -120(BASE) 
04 O00F RET 
51 6E DO O00F4 6$ MOVL | FOUND_COUNT, R1 
50 01 CE 000F7 MNEGL #1, J 
07 11 OOOFA BRB 
18 A3 08 88 OOOFC 7$ BISB 8 24 (BFRD) 
53 20 CO 90199 ADDL2 #32, BFRD 
FS 50 1 Fe 00103 8$: AOBLSS R1, J, 7$ 
50 56 09 78 00107 9S: ASHL #9. I. RO 
50 00 B4 £0 00108 ADDL2 aoirss, RO 


; Routine Size: 272 bytes, Routine Base: S$CODE$ + 0176 


2 
1X. SRCIRDBLOK .B32; 


A 
EXTZV S*ACP$V_READCHK, #1, @#ACPSGB_DATACHK, RO 
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: $ i ROUTINE SERIAL_CACHE : L_JSB NOVALUE = 

: 368 ig yi 

; 1 ; FUNCTIONAL DES‘#!PTION: 

: ‘ 1 \8 1 | Serialize cache rocessing ’ queuing the CORP part of our 
: 151 1 ! 10 packet onto the AQB queu.. Go to sleep if someone else 
: 1520 1! is already there. 

: 333 138) 1 

: 1 1 

; 8 4 BEGIN 

; 40 13 $ BIND_COMMON; 

; 4g 1528 2 EXTERNAL 

; 43 13 ; PMS$GL_XQPCACHEWAIT : ADDRESSING_MODE (GENERAL); 
: 345 1531 BUILTIN 

; 46 15 g TESTBITSS, 

; 54 15 INSQUE; 

: 305 1838 § LocaL 

: 550 183 AQB : REF BBLOCK, 

; 231 1337 ACB : REF BBLOCK: 

: 338 1339 AQB = .CURRENT_VCB CVCBSL_AQB); 

: 555 1541 2 IF (ACB = .ACB_ADDR) EQL 0 

. ee ee 

: 332 1544 ACB_ADDR = (ACB = .10_PACKET + IRP$C_CDRP); 

; 559 1545 ACBSL_PI : = ,CTCSGL_PCB CPCBSL~PID); 

; 560 1546 ACB CACBSL-AST) = CONTINUE_ THREAD; 

: 561 1547 ; ACB CACBS$L-ASTPRM) = .BASE; 

; 562 1548 ACB CACBSB-RMOD) = PSLS$C_KERNEL + ACBSM_NODELETE; 
; 563 1549 3 ACB CACBSB-TYPE) = DYNSC~ACB; 

: 564 1550 ACB CACBSW7SIZE) = 0; 

3 263 132) END; 

; 567 1388 IF INSQUE (.1O_PACKET, .AQB CAQBSL_ACPOQBLJ) 

; 568 1554 

HGS eusete™™ 

: 571 1889 BEGIN 

3 37¢ 1558 PMS$GL_XQPCACHEWAIT = .PMSSGL_XQPCACHEWAIT + 1; 

: 37 1559 WAIT_FOR_AST (); 

: 574 1560 END; 

s 575 1561 

: 576 1562 1 END; 


~-EXTRN PMSS$GL_XQPCACHEWAIT 
52 DD 00000 SERIAL_CACHE: 


~w 
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PUSHL 
MOVL 


FF 04 (BASE) RO 


9 AA D 8 2 V 3 

10 Ad D MOVL 19¢RO) AaB : 

C8 AA DO OO00A MOVL =56(BASE), ACB : 

B 12 000 BNEO ; 

50 90 AA 00000060 &8F C1 0001 ADDL3 #96, -112(BASE), ACB ; 
CB OAA 0 00 001 MOVL ACB, =56(BASE) ; 
51 000000006 00 DO 0001D MOVL TL $6 _PCB, : 

0c Al BO 0024 MOVL 6(R1), 12¢ACB) ; 
10 AO 00006 CF : 0029 MOVAB CONTINUE THREAD, 16(ACB) : 
14 AO A DO 0002F MOVL BA CB ; 
08 AQ 20020090 RF BO 00 3 MOVL = #5 601984 8(ACB) : 
04 8B 90 BA 5 038 1$: INSQUE @-112(BASES, @4(AQB) : 

B 13 0004 BEQL ; 

000000006 00 Dé 0004 INCL PMSS$GL_XQPCACHEWAIT : 

00006 CF 00 FB 0004 CALLS #0, WATT_FOR_AST : 
04 BA 0004D 28: POPR #*M<R2> : 

05 0004F RSB : 


; Routine Size: 80 bytes, Routine Base: S$CODE$ + 0286 
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VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CF11X.SRCIRDBLOK.B32; 


GLOBAL ROUTINE FIND_BUFFER (LAN, TYPE, COUNT, FOUND_COUNT) : L_NORM = 
lee 
1 
; FUNCTIONAL DESCRIPTION: 
i 
i CALLING SEQUENCE: 
INPUT PARAMETERS: 
IMPLICIT INPUTS: 
; OUTPUT PARAMETERS: 
; IMPLICIT OUTPUTS: 
i ROUTINE VALUE: 
index of first buffer found 
i SIDE EFFECTS: 
LRU List relinked, buffers may be written 
= 
BEGIN 
P 
TYPE : BYTE; 
BIND_COMMON; 
EXTERNAL 
ACP$GB_MAXREAD : BYTE ADDRESSING_MODE (ABSOLUTE), 
PMS$GL_FILHDR_HIT : ADDRESSING _MODE~ (ABSOLUTE), 
$GL"FILHDR-MISS : ADDRESSING-MODE (ABSOLUTE). 
PMS$GL-DIRDATA_HIT : ADDRESSING-MODE (ABSOLUTE), 
PMS$GL-DIRDATA_MISS : ADDRESSING-MODE (ABSOLUTE), 
PMS$GL-STORAGMAP_HIT : ADDRESSING-MODE (ABSOLUTE), 
PMS$GL~STORAGMAP-MISS : ADDRESSING-MODE (ABSOLUTE): 
LOCAL 
FNDCNT, 
INDX, 
POOL, 
INDX_ ADDR, 
LOCKBASIS, 
SEQNUM, 
PIDINDX : 
BFRD : REF BBLOCK, 
BFRL : REF BBLOCK, 
POOL_LRU : REF BBLOCK; 
LABEL 
GOT_ONE; 


-FOUND_COUNT = 1; 


: 
bee 000 18-Sep-1964 $3eait WE ekUmBAAS FER sch TIS See sRpeLoK.032:1°" (a8 


; 635 1620 

3 ? $ 1 1 SERIAL_CACHE (); 

; 638 16 g ! If this is for LBN = <1, we just want a buffer. Don't look for it, 
; 639 1624 ! because other processes may be doing this also, and we don't want 
; 640 1625 ' to find theirs. 

: 641 16 § ! 

; org 16 

; 64 16 8 IF (.LBN+1) EQL 0 

; 6446 16 T 

; 645 1650 INDX = 0 

3 04] 1 1 ELSE 

; 646 1 § BEGIN 

; 648 16 

; 649 1634 ! Get initial index 1 hashing. Follow Links, if any, until we 

3 e290 19 5 } get match on both LBN and UCB, or we run out of Links to follow. 
; $26 16 5 

s 65 1638 INDX = .LOOKUP_LBN (.LBN)<0,16>; 

; 654 1639 

; 655 1640 WHILE .INDX NEQ 0 

: 656 1641 

3 657 1966 4 BEGIN 

; 658 1645 4 

; 659 1644 4 BFRD = BFRD_ADDR (.INDX); 

; 660 1645 4 

; 661 1646 4 ! Determine if this in fact matches on both LBN and UCB. 

; $66 1647 4! 

; 66 1648 4 

; 664 1649 4 IF .BFRD [BFRD$L_LBN) EQL .LBN 

; 665 1650 4 AND .BFRD CBFRDS$L_UCB] EQL .CURRENT_UCB 

; 666 1651 4 THEN 

3; 667 1636 4 EXITLOOP 

; 668 1653 4 ELSE 

; 669 1654 4 INDX = .BFRD CBFRDSW_NXTBFRDJ; 

; 670 1655 3 END; 

3; 671 1938 END; 

3 O76 165 

3s 67 1658 POOL = .POOL_TABLE C.TYPE); 

: 674 1659 

: o7? 1999 PIDINDX = .CTLSGL_PCB CPCBS$L_PID]; 

3; 677 1096 !' Validate that we have a lockbasis for the buffer type requested. 
; 678 166 ! We deliberately do not include DIRINDX_TYPE buffers here, because 
s or ieee they are not hashed at all and are not handled with this routine. 
3 gee 1966 

: ose 166 CASE .TYPE FROM 0 TO 5 OF 

; 68 1668 

: 684 1062 HEADER_TYPE, DATA_TYPE]): 

; 685 1670 BEGIN 

3; 686 1671 

3 ret 1676 1f -CURR_LCKINDX EQL 0 

3 oss 1ore BUG_CHECK (XQPERR, ‘no current lock index lock basis"); 
3; «6691 1676 LOCKBASIS = .LB_BASIS C.CURR_LCKINDX); 


m 3 
3 138e 99:85:03 — DTSKSUMEMASTERSCF TIX. SReIRDBLOK.B32:1°%" (a5 
END; 
CDIMES TORY TVPE: 
IF .DIR_LCKINDX EQL 0 
BUG_CHECK (XQPERR, ‘No dir lock basis’); 
— = .LB_BASIS C.DIR_LCKINDX]; 
CINDEX_TYPE, BITMAP_TYPE 
IF CLOCKBASIS = -LB_BASIS (03) EQ. 0 
BUG_CHECK (XQPERR, ‘no allocation lock for lock basis"); 


COUTRANGE): 
BUG_CHECK (BADBUFTYP, ‘Bad buffer type code'); 


TES; 


QUOTA TYPE): 


Retrieve the lock basis and current buffer sequence number. The 
lock basis is the same as used for the synchronization lock, and 
the sequence number was retrieved from the value block of that lock 
when it was raised to synchronize this operation. 

The appropriate lock depends on the type of buffer being requested. 
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CHEADER, TYPE]: 
IF _.LB_HDRSEQ [.CURR_LCKINDX] EOL 0 
LB_HDRSEQ C.CURR_LCKINDX) = 1; 
SEQNL = ,LB_HDRSEQ C.CURR_LCKINDX]; 


ooo 


~ 
OUlWn—O0@e~n 


WN —OOONO UE WIN" OOOBVNOUSWNO 


CDIRECTORY. TYPE}: 
IF .LB_DATASEQ C.DIR_LCKINDX] EQL 0 
LB_DATASEQ C.DIR_LCKINDX) = 1; 
SEQNUM = .LB_DATASEQ C.DIR_LCKINDX]; 
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| 
CASE .TYPE FROM 0 TO 5 OF | 
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CDATA ryeeds 
IF jLB_DATASEa C.CURR_LCKINDX] EQL 0 | 
LB_DATASEQ C.CURR_LCKINDX) = 1; 

SEQNUA = .LB_DATASEQ C.CURR_LCKINDX); 
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; 749 1734 ! The storage bitmap, index fice bitmap, and quota file data blocks ‘ 
UE - » 1735 : pet their sequence numbers from the volume lock value block. é 
3; 7 17 § ! Check with the code in allocation_lock and allocation_unlock before | ° 
; @ § 17 ! changing any of this. ¢ 
; 7 17 3 : ‘ 
3 756 17 ° 
; 755 1740 CBITMAP_TYPE): | ; 
ie $ 174) EG | 
fag 1706 IF _ .(LB_DATASEQ (0])<0,16,0> EQL 0 ° 
: 758 174 THEN ‘ 
: 759 1744 (LB_DATASEQ [0])<0,16,0> = 1; | ; 
; 760 1745 ‘ 
3 676) 1068 SEQNUM = .(LB_DATASEQ (0])<0,16,0>; ° 
; 76 174 END; ‘ 
3; £6 1748 ‘ 
; 764 1749 CINDEX TYPE]: ; 
; 765 1750 | ‘ 
i 766 1751 IF .(LB_DATASEQ [03)<16,16,0> EQL 0 | i 
s 768 1588 (LB_DATASEQ (0])<16,16,0> = 1; ‘ 
; rH 1754 : 
: 770 1755 SEQNUM = .(LB_DATASEQ (0])<16,16,0>; ° 
3; 7 1736 END; . 
: 77 175 | 
3; oo 1758 CQUOTA_TYPE): : 
: 77% 1789 BEGIN | ; 
3 77s 1760 SEQNUM = .SAVE_VC_FLAGS<1,15,0>; ; 
: 776 1761 : 
3; 7 1766 IF .SEQNUM EQL 0 : 
; 778 176 THEN : 
; 779 1764 4 Gl : 
; 780 1765 4 SEQNUM = .SEQNUM + 1; ‘ 
; «781 1766 4 SAVE _VC_FLAGS<1,15,0> = .SEQNUM; : 
; 78 1767 ; END; : 
; 78 1768 

; 784 1769 2 END; 

; «785 1770 

; 786 1771 TES; 

3 rer 446 

: 788 177 IF .INDX NEQ 0 

; 789 1774 THEN 

: 790 1775 ; 

3; (Uff 1776 ! We found a buffer that matches the LBN and UCB desired. 

; 177 ! It may either be on our in-process queue (curpid will be us), 

; 79 1778 ! or in the general ouffer cache. 

; 794 177 ; 

3 fy 1780 

; a 1781 GOT_ONE : 

; 17 § BEGIN 

; 798 17 

; 44 1" ¢ If .BFRD CBFRDSW_CURPID] NEQ 0 

; 

; 801 17 5 If .BFRD COFRDSW_CURPID] EQL .PIDINDX 

; 4 THEN 

+ 804 17 3 ! This is a buffer we've already put onto our in-process queue. 

; 805 1790 ! Move to the head of the LRU List and return. 


| 
| 
| 
| 
} 
| 
| 
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BEGIN 
REMQUE (.BFRD, BFRD); 

INSQUE (:BFRD, .BFR_LIST C.POOL, QBLNK); | 
RELEASE_CACHE (); | 
RETURN 7INDX = 1 

END | 


ELSE 
bug _check (xqperr,''); 
RESOLVE AMBIGUITY 0; 


Verify lock basis and that things are in the right pool. 


locks in the data block pool legitimately have the wrong 
ockbasis as a result of having been deallocated to free storage 
nd reallocated to another file. 


B 

L 

3 

File headers may legitimately have the wrong Lockbasis if they 

have been deleted and are being treated as primary headers when 
they used to be extension headers or vice-versa. This will 
force a read from disk. Further checks will be made in read_header 
against the actual header to see if things really make sense. 
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ocks can also cross pools (rare in practice) if directory or quota 


. 
. 
. 
. 
. 
o 
. 
6 
. 
° 
. 
° 
> 
@ 
* 
. 
7 
e 
. 
o 
> 
. 
. 
~ 
7 
° 
. 
. 
. 
a 
- 
. 
. 
. 
e 
. 
. 
+ 
o 
. 
o 
- 
. 
. 
e 
. 
e 
- 
o 
. 
© 
. 
° 
- 
. 
. 
e 


WAI.AWAIAIWAI PI PIPIPOPINPIPUNIDN 2 2 OO OS SS OO Sg: 
ViFUN OO OONOUEWN SO OONOU Sw 00 


L 
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he index file is then extended, causing them to become file headers. 
n 

f 


2.00 Cd Od OD Cd CD Cd 09 CD Od Od OD GD OD OD GD CD CD CD CD CD GD CD CD OD: 
SOOONAMNES WN $9 OONA UE WN O ODNAMUE WN OODNOUE WI 


3 
36 all cases, unhook and return the bfrd to destroy the association | 
% this buffer with the lock basis and lock that is backing it. 
39 
40 IF .BFRD CBFRDSL_LOCKBASIS] NEQ .LOCKBASIS 
841 OR .BFRD CBFRDS$V_POOL] NEQ .POOL 
Hk HEN 
84 IF .POOL EQL 1 
844 OR .TYPE EQL HEADER TYPE 
: ; OR .BFRD CBFRD$V_POOLJ EQL 1 
| 


HEN 
BEGIN 
UNHOOK_BFRD ( 
(CCBFRD = .CACHE_HOR CF11BC$L_BFRDBAS])/BFRDSS_BFRDDEF) + 1, 
RETURN_BFRD (.BFRD); 
LEAVE GOT_ONE; 
END 


ELSE 
BUG_CHECK (XQPERR, ‘invalid lock basis"); 
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! This was not on our in-process queue. We'll need to account for the 
! fact that we are taking another buffer out of general circulation for 
! this operation. 
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alee eaten C.POOL] EQL .BFR_CREDITS C.POOL) 


BEGIN 

BIND POOLAVAIL = CACHE_HOR CF11BCS$L_POOLAVAIL] + .POOL*4; 
IF _ .POOLAVAIL GTR 4 
THEN 


BEGIN 
POOLAVAIL = ,POOLAVAIL = 1; 
BFR_CREDITS {.POOL] = ~BFR_CREDITS C.POOL] + 1; 


ELSE 
FREE_ONE (.POOL); 
ND; 


SBSBNOAR IN ODO wR hos 


BFRS_USED [.POOL] = .BFRS_USED [.POOL] + 1; 
IF BFRD CBFRDSL_SEQNUM] NEQ .SEQNUM 
BFRD CBFRDSV_VALID) = 0; 


! The sequence number will be stored in the BFRD when the buffer is 
' released back to the cache, otherwise it would be stored here. 


wre 


BFRD CBFRD$W_CURPID] = .PIDINDX; 
Pull this buffer out of the cache List and insert into our in-process queue. 
REMQUE (.BFRD, BFRD); 
INSQUE (.BFRD, .BFR_LIST C.POOL, QBLNK]); 
RELEASE_CACHE (); 
Count finding a valid buffer as a hit, an invalid one as a miss. 


We are deliberately not counting hits on buffers already on our 
in-process list to get a more meaningful hit ratio. 
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890 IF .BFRD CBFRDSV_VALIDJ 
891 THEN 
O36 BEGIN | 
89 PMS_TOT_CACHE = ,PMS_TOT_CACHE + 1; 
909 89% CASE .POOL FROM 0 TO72 OF | 
911 B96 6): PMSSGL_STORAGMAP_HIT = .PMSSGL_STORAGMAP_HIT + 1; 
ag 9 32: PMSSGL_DIRDATA_HTT = .PMSS$GL_DIRDATA_HIT™+ 1; 
} 98 2): PMSSGL-FILHDR_AIT = .PMS$GL_FILHDR_HTT + 1; 
914 99 TES; 
915 END 
916 901 ELSE 
91 308 CASE .POOL FROM 0 TO 2 OF 
918 9 FI 
919 904 }: PMS$GL_STORAGMAP_MISS = .PMSSGL_STORAGMAP_MISS + 1; 


984 00:53:11 VAX=11 Bliss-32 V4.0-7 
32 90:33:03 DISKSVMSMASTER:CF11X.S 
RDATA_MISS + 1; 
HDOR_MISS + 1; 
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1 42 
1 RC 
F312: PMS$GL_DIRDATA_MISS = .PM 
ta: PMSSGL-FILHDR_MISS = .PMS 
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RETURN .INDX = 1; 
END; ! of block GOT_ONE 


! Failed to find a buffer matching desired LBN and UCB in the cache. 
} Account for us using another buffer from the cache. 

FNDCNT = 1; 

Ren ee {C.POOL] EQL .BFR_CREDITS C.POOL] 


BEGIN 
BIND POOLAVAIL = CACHE_HDR CF11BC$L_POOLAVAIL] + .POOL*4; 
IF .POOLAVAIL GTR 4 
THEN 

BEGIN 

POOLAVAIL = .POOLAVAIL - 1; 

BFR_CREDITS -POOL] = .BFR_CREDITS C.POOL] + 1; 


ELSE 
FREE_ONE (.POOL); 
ND; 
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ww 


| 
POOL_LRU = CACHE_HDR CF11BC$Q_POOL_LRUJ + .POOL*8; | 
REMQUE (.POOL_LRU COQFLNK], BFRD); 
| 
| 


IF .COUNT GTRU 1 


954 AND .POOL EQL 1 
THEN 


BEGIN | 
LABEL CHK_BFRDS; 


BIND POOLAVAIL = CACHE_HDR CF11BC$L_POOLAVAIL) + 4; : 
BIND POOLCNT = CACHE_HBR CF11BC$W_POOLCNT) : VECTOR C,WORD]; 


oowowovd 
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Pool 1 | 


4 4 | 
CUR_BFRD : REF BBLOCK; 


TRY_COUNT = .ACPSGB_MAXREAD; 
IF COUNT LSSU .TRY_COUNT 
TRY_COUNT = .COUNT; 


LO_BFRD = .CACHE_HDR CF11BC$L_BFRDBAS] + (.POOLCNT (0])*BFRDSS_BFRDDEF; 
HI-BFRD = .LO_BFRD + (.POOLCNT ([1])*BFRDSS_BFRDDEF; 
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14-Sep- 742 DISKSVMSMASTER:CF11X.SRCIRDBLOK.832; (6) 
3 1364 
3 196 DOWN = 0; 
; sc: CUR_BFRD = .BFRD; 
3 1308 WHILE .FNDCNT LSSU .TRY_COUNT 
3 196 dO 
: 1398 CHK_BFRDS: 
; 138 4 BEGIN 
; 1970 4 
: 1971 4 IF NOT .DOWN 
3 1376 4 THE 
3 1307 BEGIN 
; 1979 CUR_BFRD = .CUR_BFRD + BFRDSS_BFRDDEF; 
; 1999 IF .CUR_BFRD GEQA .HI_BFRD 
3 1978 THEN 
: 1979 6 BEGIN 
3 1980 6 CUR_BFRD = .BFRD; 
3 1981 6 DOWN = 1; 
: 13a6 g LEAVE CHK_BFRDS; 
: 198 END; 
; 999 1984 5 
; 1000 1985 5 END 
; 1001 1986 4 ELSE 
3 1008 1987 5 BEGIN 
: 100 1988 5 
3; 1004 1989 5§ CUR_BFRD = .CUR_BFRD - BFRDSS_BFRDDEF; 
: 1005 1990 5 
; 1006 1991 5§ IF .CUR_BFRD LSSA .LO_BFRD 
3; 1007 4 4 5 
; 1008 199 ; EXITLOOP; 
; 1009 1994 
3; 1010 1995 4 END; 
; 1011 1996 4 
; 1012 1997 4 IF .CUR_BFRD CBFRD$W_CURPID] NEQ 0 
; 101 1998 4 THEN 
: 1014 1999 4 EXITLOOP; 
3; 1015 2000 4 
3 44 3 $003 2 ! NOTE: FNDCNT has not been bumped yet. 
; 1018 00 4 INDX = .LOOKUP_LBN ((.LBN + .FNDCNT))<0,16>; 
; 1019 004 4 
: 1020 5. «@ WHILE .INDX NEQ 0 
: 1021 4 dO 
: 10 ¢ 007 5 BEGIN 
3: 10 008 : 
3 H+ 3 s¢4 LOCAL TMPBFRD : REF BBiLOCK; 
3 1% $ Ole ; TMPBFRD = BFRD_ADDR (.INDX); 
; 19 8 ig IF .TMPBFRD CBFRDSL_LBN) EQL (.LBN + .FNDCNT) 
: 1029 014 D .TMPBFRD CBFRO$L_UCB) EQL .CURRENT_UCB 
2 1 O12 HEN 
; 1031 1g EXITLOOP 
s 1 § 01 ELSE 
: 10 018 INDX = .TMPBFRD CBFROSW_NXTBFRD); 


F 4 | 
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END: 
IF .INDX NEQ 0 
THEN 
EXITLOOP: 
IF .POOLAVAIL GTR & | 
THEN 


w 


BEGIN 
POOLAVAIL 
BFR_CREDI 


ELSE 
EXITLOOP; 


This one is ok. Yank off LRU and count it. 


= pPOOLAVAIL = 1; 
tS €1)] = .BFR_CREOITS C1] + 1; 


pee fejojoleieleleieieioio) 


REMQUE (.CUR_BFRD, CUR_BFRD); 
FNDCNT = .FNDCNT + 1; 


if ahead LSSA .BFRD | 
BFRD = .CUR_BFRD; 

END; ! of block CHK_BFRDS | 

-FOUND_COUNT = .FNDCNT; 
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Set BFRD to the highest one in the range found. 


BFRD = .BFRD + (.FNDCNT = 1)*BFRDSS_BFRDDEF; 
END; ! of consider multi-block read 
BFRS_USED C.POOL] = .BFRS_USED C.POOL] + .FNDCNT; 
DECR I FROM ‘.FNDCNT - 1) T0 0 
BEGIN 
INDX = ((.BFRD = .CACHE_HDR CF11BCSL_BFRDBASJ)/BFRDSS_BFRDDEF) + 1; | 
UNHOOK_BFRD (.INDX, .BFRD); 
Insert the new buffer into the hash List using the new LBN. | 
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1)); 
BFRD-CBFRDSW_NXTBFRD) = .(.INDX_ADDRS<O, 16>; 
(. INDX_ADDR)20,16> = .INDX; 


! FILL im our new or recycled BFRD, as the case may be, and 
insert it onto the appropriate in-process queue. 
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INDX_ADDR = LOOKUPLLBN (LEN + 
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-EXTRN 
-EXTRN 
-EXTRN 
~EXTRN 
EXTRN 
~EXTRN 
~EXTRN 
OBFC 00000 - ENTRY 
5E 1¢ C2 0000 SUBL2 
2 EC AA 9E 0 MOVAB 
FC AA GE 09 MOVAB 
2 14 AA YE 00000 VAB 
7? 0080 CA YE 00011 MOVAB 
26 QOA8 CA YE 00016 MOVAB 
5 0004 CA 9 id MOVAB 
10 «BC 1 OD 0 MOVL 
A 1 4 BSBB 
50 046 AC 1 ¢1 6 ADDLS 
4 12 B BNEQ 
g » D CLRL 
4 1 F BRB 
50 68 Ro 1 18: MOVL 
51 14 =A C MOVZWL 


; 1091 rs BFRD [BFRDSL_LBN) = .LBN + .I; 

:1 ; 7 BFRD (BFRDSL“UCB) =  EORRENT ce; 

; ' org BFRD CBFRDSW"CURPID] = .PIDINDX; 

: 1998 080 BFRD BFRDSL LLOCKBASIS] = = ghOGKBASIs: 

: 1096 1 BFRD ~SEQNUM M; 

; 1097 7 BFRD Ate “BTYPE) = Boye 

; 1098 O84 INSQUE (.BFRD, .BFR_LIST C.POOL, OBLNK]); 

; 1101 3 BFRD = .BFRD = BFRDSS_BFRDDEF; 

; 1108 8 & END; 

: 11046 089 

: 1105 090 2 RELEASE_CACHE (); 

3 1198 091 

3 Hy 4 44 } We didn't find the buffer in the cache so count a miss. 
: 1109 09% 2 

; 1110 095 CASE -POOL FROM 0 TO 2 OF 

: 111 09 OJ:  PMS$GL_STORAGMAP_MISS = .PMSSGL_STORAGMAP_MISS + 
: 111 098 1}:  PMS$SGL“DIRDATA_MISS = .PMS$GL_DIRDATA MISS : 1; 
3 1116 099 2): PMSSGL_FILHDR_MISS = .PMS$GL PILHOR_MISS + 1; 

: 1115 100 2 TES: 

: 1116 101 

: 1117 108 RETURN .INDX = 1; 

: 1118 10 

: 1119 104 1 END; 
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SKSVMSMASTER: ch 1X. SRCIRDBLOK .B32; ‘3 


ws 
ee. 


ACP$GB_MAXREAD, PMSSGL_FILHDR_HIT 
DR_MISS 


s 
mS SCE STGRAGRAP LHI 
PMSSGL_STORAGMAP_MI 
BUGS$_BADBUF TYP 


fi” BUFFER, Save R2,R3,R4,R5,R6,R7,R8,R9,~ 


T 
SS 


oe ee 


H 4 
16-Sep-1984 :53:1 VAX-11 Bliss-32 V4.0-742 Page 27) 
19-808-1 32 90:33; i} DISKSVMSMASTER:CF1iX.SRCIRDBLOK.B32: 1° (6) 
} 
1 7A 8 EMUL #1, LBN, #0, =(SP) ; ‘ 
| > 3 EDIV 1, (SPS+, R1, RI : | ; 
} p 4 TSTL ss RY : | ; 
4 BGEQ 2s 3 : 
1 CE 0004 MNEGL RI : ; 
10 B041 4A 33 MOVZWL ajécr ocR1. INDX : ; 
2 4F 3$ BEQL $ : 1640) ; 
6 p 051 MOVL (RB) + 1644 ; 
054 ASHL = #5 ind, RO : | ; 
8 Al § 058 ADDL2 24(R : : 
f AO : 05 MOVAB “32(R05 Seap : ; 
8 Aa OD 906 CMPL  8(BFRD). LBN + 1649 : 
07 12 0 6 BNEG 4$ ; : 
OC A& D1 0006 CMPL 12(BFRD), -108(BASE) + 1650 ; 
06 13 0006C BEQL $ ; F 
1E AG 3C OO6E 4$ MOVZWL 30(BFRD), INDX + 1654 ; 
DB 11 000 BRB $ + 1640 ; 
50 08 AC 9A 00074 5$ MOVZBL TYPE, RO + 1658 ; 
5 FCAD CF40 9A 00078 MOVZBL POOL’ TABLECROJ, POOL ; : 
51 000000006 00 v0 0007E MOVL  CTLS$GL_PCB, + 1660 ; 
18 AE 60 Al B80 0008 MOV S6CRT)7 PIDINDX : ; 
05 90 50 8F OO0BA CASEB RO, #0. #5 + 1667 ; 
0031 001F 0031 0012 OO8E 6$ «WORD -6$ : ; 
0031 001 00096 125-68, - ; . 
35°88 - : : 
$-6$ : ; 
12$-6$ : ; 
FEFF OOO9A BUGW + 1694 ; 
0000* 0009¢ WORD <BUGS_BADBUF TYP! 4> .j ; 
29 11 0009E BRB 13$ ee : 
65 05 OO0A0 7S: TSTL (RS) : "1672 ; 
04 12 000A2 BNEG 8$ : F 
FEFF OOOA4 BUGW > 1674 3 
0000* O00A6 -WORD <BUGS_XQPERR!4> : 3 
50 65 DO OOOA8 8S: MOVL  (R5),~RO + 1676). ; 
0B 11 O00AB BRB : ; 
69 D5 OQOOAD 9S: TSTL (RO) : 1681 : 
04 12 OOOAF BNEQ 108 F : 
FEFF 00081 BUGW + 1683 ; 
9000" 008 » WORD <BUGS_ XQPERR!4> é b 
50 69 DO 00085 10$:  MOVL (R9) + 1685 ; 
10 AE 6740 DO 000B8 11$: movi. (R7)CROJ, LOCKBASIS ; ; 
0A 11 000BD BRB 13$ : 1667 | ; 
10 AE 67 DO OOOBF 12$:  MOVL  (R7), LOCKBASIS + 1689 : 
12 000C BNEQ 13$ : : 
FEFF 0c BUGW : 1691 : 
0000* 000¢ .WORD  <BUG$_XQPERR!4> : : 
05 00 08 AC 8F 000C9 138 CASEB TYPE, #0, #5 : 1705 | : 
0059 0027 004D 900¢ OOCE 14$ -WORD 15$-14$,- ; | ; 
0068 0038 0006 é $-14$.- : ; 
$-14$,- : | : 
2 ad bt ; é 
9$-14$.- : : 
26$-14$ : ; 
50 65 00 000A 15$: mov.  (R5), RO : 1709 ; 
0094 cad0 D5 000DD TSTL  148(BASE)CROJ ; | : 
| 
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RDBL 1b-se -1984 53:1 VAX-11 Bliss-32 V4.0-742 Page 29) 
yOee 000 Wraeea ibe P3i8bits | We dnthd tea ch TiS she sepenox.e32:5°%" «3h 
50 4 18 AO C3 0019 SUBL3 24(RO), BFRD, RO : : 
26 2 £6 195 DIVL2 #32, RO : : 
01 AO SF OO19A PUSHAB 1 (RO) : ; 
0000V gf 9 F 19 CALLS Be UNHOOK _BFRD é | . 
0 1A MOVL FAD, R : 1838 ; 
9000v 1A BSBW RE TURN_BFRD : | ; 
84 31 001 328: BRW 45$ : 1840 ; 
Farr 1AB 33$: BUGW 3 1843) : 
g0 0+ 001AD “WORD <BUG KOPERR: 43 : | : 
6643 F4 - 8 Biat 34$: eee 34 (BASE) CPOOLJ, (R6)CPOOLI 3 1850) ‘ 
50 09 B84 pe 183 MOVAL 90 (RB) CPO J, RO : 1853, : 
6 Ad — 0018 MOVAB 104(RO), R : ; 
04 6 D1 O01C CMPL (RO), #4 : 1855 | : 
7 15 gic BLEG 35$ : ; 
60 07 0 1¢ DECL (RO) + 1858 F 
6643 B6 001C INCW (R6)CPOOLI + 1859 ; 
08 11 OO1CA BRB 36$ + 1855 ; 
pp boi CC 35$:  PUSHL POOL + 1862 : 
0000v 39 001CE BSBW  FREE_ONE : ; 
SE 04 CO 00101 ADDL2 #4 : ; 
F4 AAG3 Bb 00104 36$: INCW -12(BASE)CPOOLI + 1865 : 
57 146 Ae D1 00108 CMPL O(BFRD), SEQNUM + 1867 : 
04 13 001DC BEQL : | : 
18 Ab 08 8A 001D BICB2 #8, 24(BFRD) : 1869 F 
1c Ab 18 AE BO OO1E2 37$:  MOVW PIDINDX, 28(BFRD) > 1875 | ; 
54 64 OF OIE REMQUE (BFRD), BFRD + 1880 ; 
50 DO AAG3 7E OO1EA OVAQ 748 (BASE) [POOL I, RO > 1881 : 
00 BO 64 3 OO1EF INSQUE (BFRD), a0(RO) : 5 
0000v 30 001F3 SBW RELEASE CACH : 1883 ; 
27 18 AG 03 £1 001F6 BBC #3, 24(BFRD), 43$ : 1890 : 
O8FO CA 06 001FB INCL  2268(BASE) : 1893 F 
02 00 CF OO1FF CASEL POOL, #0, #2 + 1894 ; 
0016 000E 0006 00203 38$ WORD 39$- $.- : : 
41$-38$ : ; 
000000006 9F D6 00209 39S: INCL  @#PMS$GL_STORAGMAP_HIT : 1896 ; 
OE 11 0020F BRB 42 : : 
000000006 9F D6 00211 40S: INCL  @#PMS$SGL_DIRDATA_HIT : 1897 3 
06 11 00217 BRB 42$ : ; 
00000000G 9F 6 00219 41$: INCL @#PMS$GL_FILHDR_HIT : 1898 3 
018 1 00 1F ¢8: BRW 69$ > 1890 : 
02 00 53 CF 00 ge 43$:  CASEL POOL, #0, #2 : 1902 : 
01BE 01B6 O1AE 00226 44$: WORD  66$-44$,- : : 
67$-44$,- : $ 
68$-44 : 3 
01A5 31 0022¢ BRW 6$ > 1904 : 
5 01 00 fF 45$:  MOVL #1, FNDCNT > 1917 ; 
664 F4 AAG3 81 CMP 74g (BASE) (POLI, (R6) CPOOL : 1919 : 
1 2 BNEQ 47 3 3 
50 09 B84 pe MOVAL a0(R8) CPO J, RO > 1922 : 
50 68 =A i MOVAB 104(RO), R : : 
04 D CMPL (RO), #4 + 1924 : 
13 BLEG 46$ : : 
9 D DECL (RO) : 1927 : 
6643 B6 INCH (R6)CPOOLI : 1928 ; 
08 11 BRB 47$ : 19 ‘| : 
| 
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RDBL 1bese -1984 :53:1 VAX-11 Bliss-32 V4.0-742 Page 31. 
yO +000 12-80-98 99:33:03 DISKSVMSMASTER:CF11X.SRCIRDBLOK.B32;1 9 8) 
94 AA 0c A0 i 1 cMPL 12 (TMPBFRD) -108 (BASE) : 2014 
58 1E 88 ¢ 58$ MOVZWL 30¢ wrBr RD), INDX : 2018 
oC 11 BRB 5 + 2005 
8 D 59$ TSTL —‘INDX ; 2021 
19 1 A BNEG  60$ : 
04 69 p C CMPL =s (RO), 4 + 2025 
14 3 F BLEG  60$ ; 
69 D 1 DECL (R9) : 2028 
02 ag B6 0333 INCW  2(R6) : 029 
55 F 00 é REMQUE (CUR BFRD), CUR_BFRD + 2037 
: i) 0 INCL  FNDCRT : 2038 
54 D B CMPL CUR_BFRD, BFRD + 2040 
20 3 0 BGEQU $ : 
54 55 00 0034 MOVL CUR_BFRD, BFRD + 2042 
é 11 0034 BRB 53$ + 1966 
10 BC 00 0345 60$: | MOVL = FNDCNT, @FOUND_COUNT + 2046 
50 5 0 0349 ASHL 5, FNDCNT, R : 2051 
54 EO A044 H 034D ROVAB -35(RO)CBFRDJ, BFRD : 
F4 AAG3 52 A 035¢ 61$:  ADDW2 FNDCNT, -12(BASE)CPOOLI > 2055 
68 11 0035 BRB 64$ + 2057 
50 6 09 0349 62$: MOVL. (RB), RO > 2061 
50 54 18 AO C3 0035¢ L3 24(R6), BERD, RO : 
50 20 C6 00361 DIvi2 #32, RO ; 
58 01 AO 9E 00364 MOVAB 1(RO), INDX : 
54 DD 00368 PUSHL BFRD + 2063 
5B DD 0036A PUSHL —_INDX : 
0000v CF 02 FB 0036¢ CALLS #2, UNHOOK_BFRD ; 
51 68 D0 00371 MOVL (RB), RI : 2068 
50 32 04 AC cI 00374 ADDL3 LBN , RO : 
5 14 Al 3¢ 00379 MOVZWL 20(R1). R5 ; 
7E 00 50 01 7A 0037D EMUL #1, RO, #0, -(SP) : 
50 50 BE 55 7B 00382 EDIV. 5. (SP)+, RO, RO : 
30 D5 0038 TSTL RO ; 
03 18 00389 BGEG 63$ ; 
50 50 ce 0388 MNEGL RO, RO ; 
56 10 B140 3E 00 BF 63$:  MOVAW @16(R1)CROJ, INDX_ADDR ; 
1€ AG 66 BO 0039 MOVW § (INDX_ADDR). 30(BFRD) ; 2069 
66 : 80 0397 MOVW  INDX ) : 2070 
08 AG 04 Bc4 : 039A MOV aLBnti}, 8(BFRD) : 2076 
OC A 94 AA DO 00 Ap MOVL -108(BASE), 12(BFRD) : 2077 
1C AG 18 AE BO OO3A MOV)  PIPINDX, 28(BFRD) : 2078 
10 A 10 AE DO OO3AA MOVL LOCKBASIS, 16(BFRD) : 2080 
14 AG 4 p AF MOVL SEQ 26(BFRD) : 2081 
19 Ab 08 A B3 MOVE TYPE, 25(BFRD) : 2082 
50 DO AAG3 7E 0038 VA 7AB (BASE) CPOOLI, RO : 2084 
00 80 4 OF 038D INSQUE (BERD) a0 (RO) ; 
4 C C1 SUBL2 #32, BFRD : 2086 
92 F4 003C4 64$: SOBGEQ I, 62$ : 2057 
009 v 30 003C7 BSBW  RELEASE_CACHE : 3090 
02 00 CF OO3CA CASEL POOL, #0, > 2095 
3 oW = Pd - 
0016 000E 0006 O3CE 65$ ORD 6 ; 658 
68$-65$ : 
000000006 oF 6 O033h 66$: INCL @#PMSSGL_STORAGMAP_MISS : 2097 
000000006 gf D6 003DC 678: INCL § @#PMSS$GL_DIRDATA_MISS > 2098 


——_—— 
voo=000 IR$S0c198E $B:GB:1)  YMcLTWBbLSHEHZcY41 8-44 seoevoe. ose a3 5 


50 000000006 er a ORs: FNC arms pALHon. MISS 


MOVAB 1(R 
RET 


; Routine Size: 1007 bytes, Routine Base: S$CODES + 0206 


— 
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Se Se Se Se Se Se Se Se Be Se Ge Ge Se Se Oe Se BH Se Se Se Se Se Se Se Se Ge Se Se Oe Se Se Se ee e*« 
a kk ka a ed td ed = = a 8“ 3 2 I 
ce ee ee ee ee ed ed ed 
FUN (OC OBNAUES WN (OO ONOA UENO OONOU Sw 


DANAE EEE EEE PW 


; Routine Size: 


MoRPoPoNonononononons 


i a a ed ed od od od dd 


WANA 


ONOUE 


28 bytes, 


—ODOoCOooO 


INI WIWIWIRORonononononononong 2 2 3 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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ROUTINE WAKE _WAITER (AQB) : NOVALUE = 


' 
FUNCTIONAL DESCRIPTION: 


i Remove ourself from cache processing queue. 


Wake up 
the next process if queue is not empty. 


-_= 
BEGIN 


MAP 
AQB 


LINKAGE 
L_SCHSQAST = 


: REF BBLOCK; 


CB=5) NOPRESERVE (3,4) 


JSB : GLOBAL (PINCL=2, ACB 
16,11); 


NOTUSED (6,7,8,9, 

GLOBAL REGISTER 

ABS 5 5; 

EXTERNAL ROUT INE 
SCHSQA 


: L LSCHSQAST ADDRESSING_MODE (ABSOLUTE); 


ACB = .AQB wt ACPQFL] + IRPSC_CDRP; ! first waiter's ACB 
PINCL = PRI$_RESAQL; 
cen” SCHSQAST () 
BUG_CHECK (XQPERR, ‘Failed to queue ast"); 
END; 
-EXTRN SCHSQAST 
003C 00000 WAKE_WAITER: 
~WOR Save Re as. R4,R5 
55 04 wC 00000060 8F C1 00002 ADDL #96, , ACB 
52 02 DO 00008 MOVL ] pt 7 
000000006 9F if oF JSB re. INCL 
4 50 E BLBS RO, 1$ 
FEFF 017 GW 
0000+ 019 » WORD <BUGS_XQPERR ! 4> 
04 0001B 1$: RET 


Routine Base: S$CODE$ + 06C5 
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S$ep-1984 VAX-11 Bliss- 
iSoseo-1984 0:58:10 yaaedt etsaee 
; 13 $ i } GLOBAL ROUTINE RELEASE_CACHE : L_JSB NOVALUE = 
3 171 : 141 1 tee 
311 142 43 
; 1160 143 1 | FUNCTIONAL DESCRIPTION: 
: 1161 144 1 
; 1306 145 1 ! Remove ourself from cache processing queue. Wake up 
: 116 Pe 1 ! the next process if queue is not empty. 
: 1164 147 1! 
; 1165 | 1 le 
F 1398 149 «1 
3: 116 150 BEGIN 
3; 1168 151 
; 1392 1 § BUILTIN 
3; 1170 15 REMQUE; 
3 1171 154 
3 \ize 155 BIND_COMMON; 
3 117 138 
3 1174 15 LOCAL 
3 1175 158 AQB : REF BBLOCK, 
3: 1176 159 DUMMY; 
3 1177 160 
3 in be AQB = .CURRENT_VCB CVCB$L_AQB); 
; BY + 168 IF REMQUE (.AQB COFLNK], DUMMY) EQL 0 ! queue not empty 
3 1156 3165 WAKE_WAITER (.AQB); 
: 118 166 
3: 11846 2167 1 END; 
52 DD 00000 RELEASE a a 
50 98 AA DO 00002 MOVL -104(BASE), RO 
52 10 AO 00 00006 MOVL 16(RO), AQB 
51 00 Be OF S000, REMQUE @0(AQBS, DUMMY 
dC 0000 MOVPSL RO 
50 50 02 01 FE 001 EXTZV #1, #2, RO, RO 
96 2 0001 BNEQ 1$ 
5 DD 0001 PUSHL AQB 
C7_—s AF 8 FB oR CALLS #1, WAKE_WAITER 
4 BA 01D 1$ POPR #*M<R2> 
5 0001F RSB 


; Routine Size: 32 bytes. Routine Base: S$CODE$S + 06E1 


19° 
1X. 


_ 
SR 


42 
C 


JRDBLOK .B32; ° 


By 


SBLESPANLSSSLESRINLE SELF 


erasers 
DOODOOO0O0O OWWDOWDOWWOOOON NNN NNO 


PIER at kt kh hh hh hd dd 
SSSR ee 
MEN $$ O ODNOA NE WN O ODBNAU EWN OC ODO EW" O000 


BNAVES WN “OOOO US WN. -0O 


PRIPIPOPININPIPUNIDY 


Un =oo 


aru 


PIPIPIPIPIPOPINIPYPIPIPIPDPIPIPYNIPIPYPYPIPYNINIPINIPUPIPPIPYINPINIPINPIPIPININYININIDYD 2 9 2 SS SS ts 


a a a a a ee a ed nd ad ed ed ed dd dd td ts — 4 2d 2 tt 


PRP 

me—OCO@w 
POROMORORONOPORORONONONGNOY 
PONMONONOND 2 2 SS SOO 
FW —OOBNOUSWIN OO 


roror 


GLOBAL ROUTINE GET_REQD_BFR_CREDITS 
i++ 


FUNCTIONAL DESCRIPTION: 


management routines. 


—_ 
BEGIN 
BIND_COMMON; 


LOCAL 
AQB : REF BBLOCK, 
REQD 


AQB = .CURRENT_VCB CVCBS$L_AQB); 
CACHE_HDR = .AQB CAQBSL_BUF CACHE); 
SERIAL_CACHE (); 

BEGIN 

BIND 

POOLAVAIL = CACHE_HDR (F11B 
POOL_WAITQ = CACHE_HDR [F11 
DECR POOL FROM 3 TO 0 

BEGIN 

' The minimal buffer requirements ar 
! 1 for ayorape bitmap blocks (pool 
¢ for directory data blocks (pool 
4 
! 


for file headers (pool 
for directory index (pool 3) 


REQD = .POOL + 1; 
IF .POOL EQL 3 


REQD = 1; 


BEGIN 


PUPP BB BEB EEE EEE EEE EE EAM ANAAAIAIIPPINPIPIPIPIPOPUPIPUNIPYI 2 
vas Oo 


Page 33 
JROBLOK .B32; 1 (9) | 
: LLNORM NOVALUE = 


i gcoutre minimum buffer credits so that this operation may proceed. 
t for their availability if necessary 


! Initialize the global cell CACHE _4o8. imarily used by the buffer 


POOLAVAIL] : VECTOR, 
-POOL_WAITQ] : BLOCKVECTOR C,8,BYTE); 


en C.POOL] = .POOLAVAIL C.POOL] - .REQD) LSS 0 


! Insert our ACB temporarily at the head of the queue. wh 
! we pull our irp off of it to put on the wait queue, the cache 
! queue will not be left empty until we do our release _cache an 


D 
vOu=000 1eSep=19e 19:80:62 — DISKSVMSRASTERSCFTIX.SRCIRDBLOK.832;1°°" (3) 


| ' at that point pull off our temp acb entry. 
i 
Pa 
4 
B= 
1 


INSQUE 


(.ACB_ADDR “s CAQBSL_ACPQFL]); 
TNsout ° 


_PACKE ef. PACKETS: ake us s out of cache queue 
RE) CKE * TeooL _WAITQ C.POOL, apt ); ! into pool queue 


IF A0B sabi NEQ .10_PACKET 
BUG_CHECK (XQPERR, ‘messed up cache interlock queues'); 
END; | 
BFR_CREDITS C.POOL] = .REQD; 


! of BIND 
RELEASE _CACHE (); 
END; 


kk kk ak ik a tk td td ds 8 to 
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007¢ 00000 .ENTRY GET_REQD_BFR_CREDITS, Save R2,R3,R4,R5,R6  ; 2168 
50 98 AA DO 00002 MOVL <-102(BASE), RO > 2189 
54 10 Aad dO 00006 MOVL  16(RO) : 
FC AA 18 AG b0 0000A MOVL  24(AQBS, -4(BASE) : 2191 
FB73 30 OOOOF BSBW = SERIA HE > 2193 
55 FC OAA 90009068 BF C1 00012 ADDL3 #104, =4(BASE), R5 + 2197 
56 FC AA 000000468 8F C1 90018 ADDL3 #72, -4(BASE), R6 > 2198 
5 03 DO 00024 MOVL #3, POOL : 2200 
5 01 A i 90027 1$: MOVAB 1(R2), REQD ; gle 
0 52 D1 00028 CMPL POOL, #3 > 2214 
03 12 000 BNEQ ; 
53 94 D 00 MOVL #1, REQD : 2216 
6542 3 C2 00033 2s: SUBL2 REQD, (RS5)CPOOL : 2218 
24 18 000 BGEQ 3$ ; 
64 C8 BA OE 00039 INSQUE @-56(BASE), (AQB) : 8 
90 AA 90 BA OF REMQUE @-112(BASES, -112(BASE) : 9 
50 04 A642 7E 0004 MOVAQ 4(R6)CPOOL). : 0| 
00 =6B0 90 BA of 004 INSQUE @-112(BASE), @0(RO) : | 
92 10 0004¢ BSBB = RELEASE_CACHE ; 1 
00006 CF 00 FB 0 4 CALLS #0, WAIT FOR AST ; 2 | 
90 AA 64 01 5 CMPL (AaB) , -T12 (BASE) ; 4 
04 13 2 BEQL : 
fete 9 BUGW : 2236. 
000* 28 -WORD <BUGS$_XQPERR!4> ; | 
EC AAg2 B0 3$: MOVW REQD,” -20 (BASE) CPOOL] ; 2240 
C F4 0006 SOBGEQ POOL > 2200 | 
FF 30 06 SBW RELEASE_CACHE > 206 
4 00068 RET : 554 | 
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; Routine Size: 105 bytes, Routine Base: SCODE$ + 0701 
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67 r GLOBAL ROUTINE RETURN_CREDITS : L_NORM NOVALUE = 
$ had 
f FUNCTIONAL DESCRIPTION: 
ie i This routine returns the in-process buffer credits to the 
74 ! buffer pool. It moves the next waiter in Line to the head 
75 ! of the cache processing queue, which will cause it to become 
78 awakened when we release the cache interlock. 
Sit 

Z ! 

BEGIN 

? BIND_COMMON; 

6 


OCAL 
POOLAVAIL : REF VECTOR, 
AQB : REF BBLOCK; 


This may be called multiple times. Check if already returned credits. 
IF .BFR_CREDITS C3) EQ. 0 
THEN RETURN; 


AQB = .CURRENT_ VCB CVCB$L_AQB); 
POOLAVAIL = CACHE_HDR CFITBCSL_POOLAVAIL]; 


SERIAL_CACHE (); 
DECR POOL FROM 3 TO 0 
BEGIN 


BIND 
POOL_WAITQ = CACHE_HDR CF11BC$Q_POOL_WAITQ] + .POOL*8 : BBLOCK; 


4 -BFRS_USED C.POOL] NEQ 0 


STRESS SSR RET LT Le 


oO 
uw 


tos 
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REMQUE (.POOL_WAITQ CQFLNK], WAITER); 
ry (,WAITER, .AQB CAQBSL_ACPQFLJ); ! insert AFTER us. 
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- 


4 BUG_CHECK (XQPERR, ‘buffer use not to zero yet'); 
0 POOLAVAIL (.POOL) = af + yates C.POOL] + .BFR_CREDITS C.POOLJ; 
1 BFR_CREDITS C.POOL) = 0; 
§ IF ;POOL_WAITa COFLNK] NEQ POOL_WAITQ COFLNK) 
5 BEGIN 
§ LOCAL 
WAITER; 
8 
g 
0 
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84 bytes, 


; Routine Size: 


voce 000 16: se0-1944 He Sete tS ne Sh a cn 


; } : ! GLOBAL ROUTINE WRITE_BLOCK (BUFFER) : L_NORM NOVALUE = : 
Wg Riis | 
i] g 13 J | FUNCTIONAL DESCRIPTION: 
; 1 5 12 : This routine writes the indicated block back to the disk. : 
:4 3 j i CALLING SEQUENCE: : 
; $ 18 ' WRITE_BLOCK (ARG1) | ; 
:1 9 9 | i INPUT PARAMETERS | : 
; : : ARG1: address of block buffer | : 
1328 § 1 i umpuicit inputs: | ; 
3 : ¢ : 1 ; BUFFER DESCRIPTOR ARRAYS : 
:1 6 $1 i QUTPUT PARAMETERS: : 
: 1308 Fy i NONE | 
: 1349 9 1! IMPLICIT CUTPUTS: | F 
: 13a a yi _ 
:1 3 é 1! ROUTINE VALUE: F 
a $f ellen : 
> 1355 5 1! SIDE EFFECTS: | : 
3; 1356 $ 1! block written : 
: 1328 bi : 
> 1359 9 1 : 
; 0 40 BEGIN : 
:1 é 4g LOCAL : 
: 1 34 BFRD : REF BBLOCK, : 
3 1 344 STATUS, ' service status of Q10 call . 
; ; 5 345 INDX; ' index of buffer : 
:4 32 EXTERNAL : 
31 48 CLUSGL_CLUB : ADDRESSING _MODE (ABSOLUTE), : 
21 49 ACPSGB-DATACHK : BITVECTOR ADDRESSING MODE (ABSOLUTE); : 
3 : 39 ' ACP datacheck enable’ flags | : 
3 3 BIND_COMMON; | ; 
:1 34 EXTERNAL LITERA | 

3 ' 5 ACPSV_WRITECHK =: UNSIGNED (6); ! write check enable flag 

: i 3° INDX = (.BUFFER = .CACHE_HDR CF11BC$L_BUFBASE])/512 + 1; | 

: i 39 If gINOX<0, 16> GTRU .CACHE_HDR CF118C$W_BFRCNT) | 

; 1 BUG_CHECK (BADBUFADR, ‘out of this cache, man'); | 

: 8 BFRD = BFRD_ADDR (.INDX); | 

: 1385 5 2! Stuff the UCB of IO_CHANNEL to go where we want. | 


ieoseo-t9gs 09:85:1)yatedt at 


10_CCB CCCBSL_UCB) = .BFRD CBFROSL_UCB); 


BEGIN 
LOCAL 
PTR : REF BBLOCK, 
SAVE_PRIV : VECTOR (4): 
95 :CTLSGL 
PIR CPCBSW _DIGCN Nts = .PTR [PCBSW_DIOCNT] + 1; 
TR. Cocos “ASTCNT] = .PTR CPCBSW-ASTCNT) + 1: 
fo * (PTR R fpce Q_PRIV]); 
ff .? CB$Q~PRIV +h); 
80 SAVER iPr ca$a_p pny), oeRnSt L0G_10 is : 
81 BBLOCK a Pease. “paiva: PRVSV ~BYPKSS : 1 
8 SAVE =phiv f HOt otR PHD$Q_PRIVMSK)); 
84 3 SAVE-P * (PTR PHDSO “PRIVMSKI+4); 
85 aplotK. Mi pup$a _PRIVMSK), PRV$V_LOG_10) = 1; 
86 BBLOCK ter PHD$Q~ ~PRIVMSK), * PRVSV ~BYPKSS) = 1; 
88 3 PMS_TOT WRITE = .PMS_TOT_WRITE + 1; 
P 2389 STATUS = $Q10 ( 
P 2390 EFN = EFN 
P 2391 ASTADR = CONTINUE_THREAD, 
Pp 36 ASTPRM = .BA 
P 239 HAN = .10 CHANNEL 
P 2394 FUNC = (1OS_WRITELBLK 
P 2395 OR™.ACP$GB DATACHKCACPSV WRITECHK) 
Pp 36 . $81 TPOSITION (LO$V_DATACHECK)), 
P 239 10SB = 10 STATUS, 
Pp Pi = .BOFFER, 
P pP2 = $1 
P P = .BFRD CBFRDSL_LBN) 


(PTR [PHDSQ_PRIVMSK]) = .SAVE_PRIV (2); 
(PTR PHDSO- PRIVMSK]+4) = .SAVE_PRIV v 3); 


PTR TLSGL 

PTR CPCB$W_DIOCNT) = .PTR CPCBS$W_DIOCNT) - 1; 
PTR CPCBSWASTCNT) = .PTR PCBs A TCNT] = 1; 
(PTR [PCB$G_PRIV]) = -SA VE_P 

(PTR CPCBSQ~PRIVI+4) = it) PERI. i; 


END; ! of block defining PTR, SAVE_PRIV 
IF NOT .STATUS 

THEN IO. STATUS = .STATUS 

ELSE WATT_FOR_AST(); 


Restore CURRENT_UCB to IO_CHANNEL. 
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10_CCB CCCBSL_UCB) = .CURRENT_UCB; 
IF .10_STATUS 
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LUSTER, 
LCKINDX; 


BFRD CBFRDSV_DIRTY) = 0; 


s buffer. 


LCKINDX = 0; 


dO 
BEGIN 


pal9be Vo:S0:42 


! Now let's find the lock that backs this buffer and bump it's 
: oe uence number so the rest of the world will know we've modified 


: ates CBFRDSL_LOCKBASIS] EQL .LB_BASIS C.LCKINDX] 


EXITLOOP; 

LCKINDX = .LCKINDX + 1; 
UNTIL LCKINDX EOL LB_NUM; 
IF <LCKINDX EQL LB_NUM 

BUG_CHECK (XQPERR, 
CLUSTER = 0; 


‘no backing lock for dirty buffer’); 


IF oo ee 3 CCURRENT ua oycesi. -DEVCHAR2], DEV$V_CLUJ 


USGL_CLUB NEQ 
THEN 
CLUSTER = 1; 


case -BFRD CBFRDSB_BTYPE] FROM 0 TO 5 OF 


CHEADER_TYPE): 
IF [CLUSTER 


N 
LB_HDRSEQ C.LCKINDX] = 
CDIRECTORY TYPE, DATA_TYPE): 
IF_.CLOSTER 


N 
LB_DATASEQ C.LCKINDX) = 


CBITMAP_TYPE]): 
(LB-DATASEQ [0})<0,16,0> = 


CINDEX TYPE): 
(LB_DATASEQ [03)<16,16,0> = 


CQUOTA_ TYPE]: 
SAVE _VC_FLAGS<1,15,0> = 


~-LB_HDRSEQ C.LCKINDX] + 1; 


~LB_DATASEQ C.LCKINDX] + 1; 
. (LB_DATASEQ (03)<0,16,0> + 1; 


-(LB_DATASEQ (0])<16,16,0> + 1; 


. SAVE _VC_FLAGS<1,15,0> ¢ 1; 


VAX-11 Bliss-32 V4.0-742 Page 4 
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~w 


TES; 
END 
BEGIN | 
' clean up will iterate on write failures if the volume is write locked until 


! the best effort clean up has been done. However, if the write error was on the 
storage bitmap, we allocation lock the volume to prevent further damage. 


ELSE 


Fed ke Del alltel Dek De deeded 


Meteo At pet try te eee | 
Whoo MEWN—O 


IF .BFRD CBFRD$V_POOL) EQL 0 ! this is storage bitmap pool 
AND SURFACE_ERROR (.10_STATUS (03) 


H 
495 CURRENT_VCB CVCBSV_NOALLOC) = 1; 


49 INVALIDATE (.BUFFER); 
498 ERR EXIT (.10_STATUSEO)); 


3; 1 
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~-EXTRN CLUSGL_CLUB, ACPS$V_WRITECHK 
-EXTRN BUG$_BADBUF ADR 
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003¢ 00000 .ENTRY WRITE BLOCK, Save R2,R3,R4,R5 : 2309 
55 000000006 00 H 00002 MOVAB CTLS$GC_PCB, R5 : 
5é 10 C2 00009 SUBL2 # F 
54 QOAS CA 3 0000¢ MOV 168(BASE), R4 : 2349 
52 04 AC FC BA C3 00011 SUBL3 @=-4(BASE). BUFFER, R2 : 2357 
52 00000200 8F Cé 00017 DIVL2 #512, Ro : 
2 06 OO01E INCL INDX ; 
50 FC AA 00 000 MOVL  -4(BASE), RO : 2359 
16 AO 52 B1 00024 CMPW  —sINDX, 22(RO) : 
04 1B 00028 BLEQU 1$ : 
FEFF OOO2A UGW : 2361 
0000* 0002¢ WORD <BUG$_BADBUFADR!4> : 
50 FC AA DO O002E 1S: OVL =4¢ 5), RO : 2363 
5 20 ¢4 000 MULL2 #32 : 
5 18 AO 0 000 ADDL2 24(RO), R2 ; 
@ 20 ¢ 00 9 SUBL #32 BFRD : 
FF74 DA 0c A2 00 000 MOVL  12(BFRD), @-140(BASE) > 2368 
53 65 D0 04 MOVL  CTL$GL_PCB, PTR : 2375 
f A3 B6 0004 INCW Ge (PIRI : 3 76 
AS B6 0048 INCW (PTR) : 2377 
6 00 4 D 0004 mova. 1 g(PTR) SAVE PRIV : 2378 
0084 C 2000 080 8 CB 905 BISL2 #536871040, 132(PTR) > 2381 
53 000000006 9 0 000 MOVL  CTLSGL_PHD, PTR : Be 
08 at 6 D 00060 MOVG (PTR) SAVE _PRIV*8 > 238 
63 20000080 8F C8 00064 BISL2 #536871 40," (PTR) : 3386 
O8EC cA 06 0 INCL 2284(BASE) : - 88 
E 7C 0 F CLRO = =(SP) : 2401 
7E 04 1 CLRL = = (SP) : 
08 A2 Dd 00073 PUSHL  8(BFRD) ; 


499 : 
500 ; 
END; ! end of routine WRITE_BLOCK 
| 
| 
| 


5 | 
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7E 0299 8F 3C 76 MOVZWL #512, =(SP) 3 : 

* 8 Oe Sore pst Bue 3 

me EF ioe | Rane ting yew Pate 

50 000000006 9F 1 OG FF 7 EXTZV  SUACPSV_URITECHK, #1, Q#ACPSGB_DATACHK, RO : : 

0 0 E78 000 ASHL. #14, ROT R : | ; 

E C9 00094 BISLS #32) RO, = (SP) ; | : 

FF78 CA DD 00098 PUSHL =136(BASE) : | ; 

000000006 0 Of FB O009E CALS fie, SySSozO ; 

3 08 AE 7D 00 iS mova SAVE PRIV+8, (PTR) ; 403 : 

87 feone =—BeY, | gltptayhe®."Prm ee) 

35 a3 87 DOAF DECW 6(PTR) ; 2407 : 

0084 3 55 eB BO8s pees oh 3 PRIV, 132(PTR) ¢ $008 : 

88 AA 9 00 0008, MOVL TATUS, -120(BASE) ; 2616 ; 

00006 CF 00 FB 000¢0 33 CALLS #0, WAIT FOR_AST ; 3415, : 

FF74 DA 94 AA DO 000C5 3$ MOVL -108(BASE), S-140(BASE) : 2420 ; 

1 88 AA 00 000¢8 MOVL  -120(BASE), R1 : 2he2 : 

6B 31 £9 O00CE BLBC_ RI, : : 

ol St 8s ELE? ecuapcer™ Be) 

0080 CA40 10 Ag 1 00008 4s CMPL = 16(BFRD), 128(BASE)CLCKINDX] 2441 : 

97 15 O000F BEQL «= 5$ ; : 

0 06 000E1 INCL —- LCKINDX 2445 ; 

a" 0 hea fol BEA | 

05 50 Di OOOES 5S CMPL LCKINDX, #5 : 2449 ; 

Mere OOOED sued” : 2451 : 

58 D4 OOF! 68 tm CLUSTER 2453 ; 

51 94 AA DO O00r§ MOVE = 10B(BASE), RI 3 2655 : 

08 3¢_ Al «ED OOF BLBC © 60(R1), 7$ ; : 

000000006 9F b> O00FR TSTL = @ACLUSGL_CLUB : 2456 : 

53 81 00 00103 ROVE. fy, CLUSTER : 2458 

05 00 19 AZ BF 00106 7$: CASEB g3 (BERD), #0, #5 2460 3 

001F 0015 01 900¢ 0108 8$: WORD 9$-8$,- : 3 

002 001 0011 Vis-8§,- ; | : 

12$-8$,- ; | ; 

138-83" 

60 53 £9 00117 9$ BLec CLUSTER, 188 : ‘5 : 

0094 casd 6 OO11A Ince 1 (BASE) CLCKINDX) : 3465 ; 

57 53 £9 00120 108: BLBC CLUSTER. 188 ; 2468 | 

6440 6 O01 INCL (R4)CLCKINDX 3470 3 

64 86 it ; 118: Incu (RG) : a : 

02 a4 BG OOIGA 128: INC 2(R4) : 2476 | : 

4 001 RET : | ; 


| 
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; Routine Size: 379 oy-es, Routine Base: 
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GLOBAL ROUTINE CREATE BLOCK (LBN, COUNT, TYPE) : L_NORM = 


++ 


FUNCTIONAL DESCRIPTION: 


SSLESRAN 


This routine fabricates block buffer(s) eeesernne the designated 
block(s). The type code is as for READ_BLOCK and determines the buffer 
pool to be used. 

CALLING SEQUENCE: 

INPUT PARAMETERS: 


' 
{ IMPLICIT INPUTS: 
‘ 
i] 


PUSS 
POF FUSS SIVSVSUSVSOSISISIIS 


OUTPUT PARAMETERS: 


es st i 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


SIDE EFFECTS: 
buffer zeroed and recorded as a block read 


LOCAL 


DONOAME WN $0 OBNOAUNE WN O OBNAUE WN SOV ONOU LW 


BUFFER 
FOUND_COUNT, 
BFRD 

INDXO; 
INDXO = FIND BUFFER (.LBN, .TYPE, 1, FOUND_COUNT); 
BFRD = .CACHE_HDR CF11BCS$L_BFRDBAS) + .INDXO*BFRDS$S_BFRDDEF; 


BUFFER = CACHE HDR CF11BC$L_BUFBASE) + .INDX0*512; 
CHSFILL (0, 5127 .BUFFER); 


IF (,LBN + 1) NEQ 0 
THEN 


: REF BBLOCK, 


| 
| 
| 
address of buffer | 
| 
| 
| 


A A re ry ee eee DS Foe ot at ot ot et at ot 
Mlwn— 


BEGIN 
BFRD CBFRDSV_DIRTY 
BERD CBFRDSVVALID 


“an 
st 
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1 
1 
1 
1 
1 
1 
1 
BEGIN 
BIND_COMMON; 


RETURN .BUFFER; 
1 END; ! end of routine CREATE_BLOCK 
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PRIPIPINIMIPIPDPIPINININIPIPDPINNINININDNINININININININININININIPINPIPIPIPIPONINIPIPPIPINPOPPPPUNPPPPUND 
UPV PULP PUPV PV DVDPULUSPUPUSESESTSUSI ST SU ST SUSU SU SISSIES SST SII 
PUPP BP BBB EEE BE EAN enononofononononon 


PUD PUDPVPVPV PUPP PU DV SUDUSE LVS SUSU SUSU SISUSV SUSU SISSY 
NOME WN 0 ODNOAU EWN $0 ODNOA UE WIN (OOD NAUE WN OOO VNOU SW O 
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“un 

ms 

= 
—— 
XS 
on 
ar 


o0F¢ 00 .ENTRY CREATE_BLOCK, Save R2,R3,R4,R5,R6,R7 : 2502) 
¢ 00 : SUBL2 #4, SP ; | 
E DD 000 PUSHL > 2541. 
07 pd 00007 PUSHL #1 ; 
0c AC DD 00009 PUSHL TYPE : 
04 aC DD 0000C PUSHL LBN ; 
F989 =sCF 4 FB 0000F CALLS #4, FIND_BUFFER : 
; 0 0D 0014 MOVL RO. I : 
FC OA p 17 MOVL =4(BASE), R1 $ 2543 
50 05 0018 ASHL. #5, IND : 
6 18 «AI cr Oo1F ADDL3 24¢R1) RO, FRD : 
: 2 09 78 00024 ASHL. #9, INDX > 2545 
FC BA cI 0028 ADDL3 a@-4(BASE). RO BUFF ; 
0200 8F 00 6E 9 C 00 D MOVCS #0, (SP), #0, #512, er BUFFER) : 2546 
50 04 ac 1 ¢1 00035 ADDL3 #1, LBN, RO : 
4 1 O3A BEQL 3 
18 «OA 6 88 000 BISB2 #12, 24(BFRD) ; 
5 dO 040 1$: MOVL BUFFER, RO : 
4 0004 ; 


; Routine Size: 68 bytes, Routine Base: S$CODE$S + 0939 
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; ! £0 35 : GLOBAL ROUTINE UNHOOK_BFRD (INDXARG, BFRDARG) : L_NORM NOVALUE = 

3 1 &¢ 60 1 !+44 

.4 eo. 3% 

: : 2 66 ! FUNCTIONAL DESCRIPTION: 

: 1 58 $64 1 ! This routine extricates a BFRD and its associated BFRL from 

s 3 65 1! their hash lookup lists. It also takes care of the BFRL if 

; 1588 66 1! this was the last reference to it. 

; 1589 67 1! The caller of this routine is responsible for clearing or 

; : si $8 : ; rewriting other relevant fields in the BFRD. 
3 1 35 $76 1 !-- 
3 123 se 
: 1594 276 BEGIN 

; 1595 57 | 
: 1298 574 BIND_ COMMON; 
3; 159 575 

; 1598 e78 EXTERNAL ROUTINE 

; 1599 57 DEL_EXTFCB : L_NORM, 
: 1600 578 NUKE_HEAD_FCB : L_-NORM NOVALUE; 
: 1601 579 

3 1oh6 580 LOCAL 

; 160 581 BFRD : REF BBLOCK, 

: 1604 286 INDX : WORD, 

; 1605 58 INDX_ADDR, 
3 \ope 584 BFRL : REF BBLOCK; 

; 160 585 

; 1608 586 BFRD = .BFRDARG; 

3; 1609 587 INDX = .INDXARG; 

; 1610 588 

3: 1611 589 If .BFRD CBFRDS$V_DIRTY) 

$ lolg 590 ; ; 

3 1937 4 BUG_CHECK (XQPERR, ‘Should not find dirty buffer’); 

3; 1615 298 BFRD CBFRDS$V_VALID) = 0; 
3: 1616 594 
3: 1617 595 IF .BFRD CBFRDSB_BTYPE) EQL DIRINDX_TYPE 

3; 1618 +4: THEN 

3; 1619 59 BEGIN 

; 1620 598 LOCAL 

3; 1621 599 BUFR : REF BBLOCK, 

3 19 § 444 DIRFCB : REF BBLOCK; 

3; 1624 602 ' DIRINDX_TYPE blocks are not hashed by lbn, and the field is used 

: 1663 O87 ! to point to the directory fcb. 

s 16 $ rai IF (DIRFCB = .BFRD CBFRDS$L_LBN]) NEQ 0 

; 1628 606 THEN 

3; 1629 6 4 BEGIN 

; 1650 608 4 

; 1631 09 4 IF .DIRFCB CFCB$B_TYPE) NEQ DYNSC_FCB 

: 163% 610 4 OR .DIRFCB CFCBSL_DIRINDX] EQC 0 

3; 16 611 4 HEN i ‘ 

3; 16 ols 4 BUG_CHECK (XQPERR, ‘not legit dirfcb"); 

: 163) 613 4 : ; é 2 

3; 16 614 4 ! This will break the association of this directory index buffer 


04-000 


3; 1637 615 
; 16 918 
ge 81 
ig $4 
3 1808 621 
3 1644 6 ¢ 
: 1645 6 

: 1048 624 
 18e $58 
$ 1868 6 $ 
: 1650 628 
3: 1651 629 
3 1606 630 
3; 165 631 
3: 1654 6 ¢ 
; 1655 6 

: 1656 634 
: 1657 tH 
; 1658 636 
Se: 
3; 1661 639 
3 1208 640 
: 166 sees 
3: 1664 6 
3; 1665 64 
: 1666 644 
3: 1667 645 
3; 1668 G66 
3; 1669 64 
: 1670 648 
1853 $850 
3 1838 sea 
: 1674 $026 
3; 1675 65 
; 1676 654 
3; 167 655 
; 1678 228 
3: 1679 65 
6B $39 
5 He 660 
3; 168 661 
: 1098 664 
: 168 665 
3; 1688 006 
1856 66 
: 1691 03 
3 1638 670 
3; 169 671 


RAE FHKE B&F AAAI MID MPININININININ ME & FEMININE PPP PEPE PPP EE 
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! from the directory fcb. 


DIRFCB CFCBSL_DIRINDX) = 0; 
IF .DIRFCB CFCBSW_REFCNT) EQL 0 
IF TESTBITSC (DIRFCB CFCBSV_DIRI) 


from this point on, because the refcnt was zero, and the DIR 
flag was set and is now clear, the search_fcb routine will no 
pongee find this fcb, so we are free to deallocate it. 
Furthermore, because the DIR was set, we know that no search_fcb 
had found it at the time we cleared it 

unconditionally clear it. 


THE 


because search_fcb will 


N 
BEGIN 


! Note that we are under the cache interlock here, and assume that 
! the these routines will do nothing that could cause a stall. 


DEL_EXTFCB (.DIRFCB); 
NUKE_HEAD_FCB (.DIRFCB); 
END; 
BFRD CBFRDSL_LBNJ = 0; 
END; ! of bfrd$l_lbn (dirfcb pointer) neq zero 


END; 
IF .BFRD CBFRDSL_LBN) NEQ 0 
THEN 
! BFRDSL_LBN neq 0 means that this buffer is in the hash lookup List. 
! We need to remove it from the List it is currently 
in as we are about to use the same buffer for some other LBN. 
BEGIN 
INDX_ADDR = LOOKUP_LBN (.BFRD CBFRDSL_LBN)); 
ul z<. SNBR_ABORI<D, 16> EQL .INDX 
ne (. INDX_ADDR)<0,16> = .BFRD CBFRDOSW_NXTBFRDJ 
BEGIN 


INDX_ADDR = BBLOCK [ BFRD_ADDR (.(.INDX_ADDR)<0,16>), BFRDSW_NXTBFRD] 
UNTIL .(.INDX_ADDR)<0,16> EQL” .INDX; 


{< INDX_ADDR) <0, 16> = .BFRD CBFRDSW_NXTBFRD); 
END; 


20-742 
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' If it had a buffer lock hooked up with it, adjust the reference count 
' on the lock descriptor. and remove the lock descriptor from its hash 
lookup List if this is the last reference to it. 


. 42 Page 50. 
p- REIRDBLOK..B32;1 9° (13) 


oO 
“ 


BISAE 


= 
AAAS 


SFELLS3E 


IF .BFRD CBFRDSW_BFRLJ NEQ 0 
THEN 
BEGIN 
BFRL = BFRLD_ADDR (.BFRD CBFRDSW_BFRLJ); | 
BFRL CBFRLS$W_REFCNT] = ,BFRL CBFRLSW_REFCNT) = 1; 
IF .BFRL CBFRL$W_REFCNT) EQL 
THEN 
BEGIN 


IF .BFRL CBFRLSL_LKID) NEQ 0 
THEN 


SANA NNO 


~ 
oo 
@ 


OONA MEW — OOONOUE UT 


PAEAAAAAAA AAPA AAAAAS 


SSeS aul ode~eews 


BEGIN 
4 we $DEQ (LKID = .BFRL CBFRLSL_LKID]) 
END BUG_CHECK (XQPERR, ‘unexpected lock manager reaction’); 


' Hash on the lockbasis,parlkid pair and scan the list to find the 
desired bfrl, if necessary. Pull it from the List when located. 


| 
| 
} 
| 
| 
j 
| 
| 
INDX_ADDR = LOOKUP_LOCK (.BFRL_CBFRLSL_LCKBASIS3, | 
-BFRL CBFRLSL_PARLKIDJ); | 

LF « («INDX_ADDR) <0, 162 EQL .BFRD CBFRDSW_BFRLJ | 
(. INDX_ADDR)<0,16> = .BFRL CBFRLSW_NXTBFRLJ 

} 

| 

| 

| 

} 


ELSE 
BEGIN 


INDX_ADDR = BBLOCK C BFRLD_ADDR (.(.INDX_ADDR)<0,16>), BFRLSW_NXTBFRLJ 
UNTIL .(TINDX_ADDR)<0,16> EQiL TBFRD CBFRDSW_BFRLI; 


TY a created = .BFRL CBFRL$W_NXTBFRLI; 


NOUSWN OO 


BFRL CBFRLSL-LCKBASIS 
BFRL CBFRLSL~PARLKID) = 0; 
} 
R 


kd at ot ot ot = IE 


BFRL FBFRLSL“LEKBA = 9: 0: 


BFRL CBFRL$W_NXTBFRL] = .CACHE_HDR CF11BC$W FREEBFRLI; 
—e CFTIBCSW_FREEBFRLJ =".BFRD CBFRDSO_BFRLI; 


: There is no longer a BFRL associated with this BFRD. 
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BFRD CBFRDSW_BFRLJ = 0; 
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OC 8B 00000 FREE_ONE: 
PU 


SHR #*M<R2,R3> ; 3733 

50 OC AE DO 00002 MOVL POOL, RO 755 
F4 AAGO B7 00006 DECW -12(BASE)CRO) 
OC AE DO OOOOA MOVL 7 


R 
MOVAQ =52(BASE)CROJ, R1 
REMQUE @0(R1) FREED 


E 
F 
0 MOVL  <-4(BASE), R 


: if q ! ROUTINE FREE_ONE (POOL) : L_JSB NOVALUE = 

3: 1 735 1 tee 

3 7 7 ; ! 

; HA f } FUNCTIONAL DESCRIPTION: 

: 1786 7 1 ! This routine tosses a buffer off the in-process List to make room ' 

3; 176 740 1! for a new one. This opty happens wnen we already have used up 

: 1764 741 1°! the minimum number of buffers for this pool, and there are not 

3 1092 reg ; enough available in the cache to steal more from it. 

; 1383 744 «1 OS | 

; \to8 745 «1 

3 178 rs BEGIN 

; 1770 74 

3; 1771 ree BIND_ COMMON; 

3 177 74 

: 177 750 LOCAL 

3 1774 751 INDX, 

3; 1775 7 § POOL_LRU : REF BBLOCK, 

3 1778 f Z FREED : REF BBLOCK; 

3 1778 £33 BFRS_USED [.POOL] = .BFRS_USED [.POOL] - 1; 

: 1790 739 REMQUE (.BFR_LIST C.POOL, QFLNK], FREED); | 

3 1783 735 INDX = (.FREED - .CACHE_HDR CF11BCSL_BFRDBAS])/BFRDS$S_BFRDDEF; 

? 1784 761 5 IF .FREED CBFRDSV_DIRTY) | 

3; 1785 166 THEN 

3; 17 76 BEGIN 

; 178 764 RELEASE CACHE (); 

: 1788 765 WRITE BCOCK (.INDX*512 + -CACHE_HDOR CF11BC$L_BUFBASE)); 

3; 1789 766 SERIAC_CACHE (); 

3; 1790 76 END; | 

; 1791 768 

3 a 5 769 ! Insert at front for now to recycle immediately. 

3; 179 770 ! 

> 1794 771 

3; 1795 77 POOL LRU = CACHE_HDR CF11BC$Q_ POOL_LRU) + .POOL*8; 

3 1796 77 INSQDE (.FREED, POOL_LRU COFLAK)); 

: 1797 774 2 FREED CBFRDSW_CURPID] = 0; 

: 1798 775 

: 1799 776 7 END; | 
| 
| 
| 
i 
| 
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<2 
~~: 


: } 1 ake } GLOBAL ROUTINE RELEASE_LOCKBASIS (LCKINDX) : L_NORM = : 
i] g 113 | 1+ | 
i 1805 ? ; | | FUNCTIONAL DESCRIPTION: | : 
: 180 7 ‘ 1 i This routine scans in-process buffers and prepares them for lowering : 
3 7 7 1 ! the synchronization lock associated with LOCKBASIS. | : 
3% 785 1! All d ry buffers associated with the given LOCKBASIS must have been : 
; 1319 7 § 1 ! written to disk previously. This routine runs under the cache serialization : 
; 1811 7 1 ! interlock, and if a conversion is required, will exit without releasing ; 
31 ig 788 1 | the cache serialization interlock. | ; 
3 1 1 7 1 ' ° 
: 18146 790 1 !-- F 
3; 1815 791 «1 : 
s 3 \¢ 79 BEGIN : 
: 181 79 3 
; 13\3 a BIND_COMMON; : 
> 1820 796 2 EXTERNAL ; 
3 3 1 a dA CLUSGL_CLUB : ADDRESSING_MODE (GENERAL); ‘ 
: 18 : 799 2 LOCAL : 
3 1824 800 LOCKBASIS, : 
> 1825 801 LKID_ADDR. : 
Heb Be 2 : 
; 1828 804 2 LABEL : 
: 1899 805 FIXBFRL, ; 
: 13 ? o38 LBMATCH; : 
; 1832 808 2 LKID_ADDR = 0; 
; 1 3 809 NDX = 4 e 
: 18% 810 LOCKBASIS = .LB_BASIS C.LCKINDX); : 
: 1836 Bigg SERIAL_CACHE (); : 
: 1838 B14 2 INCR POOL FROM 0 TO 3 ; 
> 1840 816 BEGIN ; 
: 1861 81 LOCAL ; 
; 184 818 
; 184 819 QHEAD : REF BBLOCK, : 
; 1844 0 BFRL : REF BBLOCK, : 
; 1845 821 BFRD ©: - REF BBLOCK; : 
bc? 858 QHEAD = BFR_LIST C.POOL, QFLNKI; : 
3 1368 : BFRD = .QHEAD COFLNKI; 3 
; 1850 6 1 = .BFRS_USED C.POOL); 

; 1 3 8 UNTIL «1 EOL 0 

> 1854 0 4 

; 1855 1 4 LOCAL 

; 1 2$ ¢ G NXTBFRD; 

; 185 4 
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3 1 

3 : 5 
3 } ; 
3 1 § 
3 1 40 
3 ; 1 
3 1 j 
3 1 4 
3 1 45 
; 1870 § 
: iby d 
: 1 ig § 
3: 1874 50 
We 3 
:1 rs HE 
; 1878 854 
: 1879 855 
; 1880 B28 
; 1881 85 
3 1s 858 
; 188 859 
> 1884 860 
: 1885 861 
3 ioe 86 
3; 188 86 
; 1888 864 
3; 1889 865 
: 1890 8 

; 13891 86 
3 1098 868 
; 189 869 
3: 1894 870 
: 1895 71 
3; 1896 7 
: 1898 i 
; 1899 He: 
es 
; 190 HY 
3; 190 87 
: 1904 0 
3 130) 1 
£1909 § 
; 1908 

: 1909 5 
3; 1910 

1912 

3 1918 3 
3 1914 90 
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l= .J] <1; 
NXTBFRD = .BFRD CBFRDSL_QFLI; 
: pees this BFRD for LOCKBASIS match. 


1 

' 

' or volume set. Because the L 

: necessary to make a separate check for a volume set match. 
' 

' 


! When the buffer was initiathy brought into the in-process list, it 
r 


! matched correctly on the desired UCB. 


IF .BFRD CBFRDSL_LOCKBASIS] EQL .LOCKBASIS 
BEGIN 


LOCAL 
POOL_LRU : REF BBLOCK; 


IF NOT .BFRD CBFRDSV_VALIDJ 
THEN 


LBMATCH: 


INDXO; 


INDXO = (.BFRD - .CACHE_HDR CF11BC$L_BFRDBAS]) /BFRD$S_BFRDDEF ; 


UNHOOK_BFRD (.INDXO + 1, .BFRD); 
RETURN_BFRD (.BFRD); 
LEAVE LBMATCH; 
END; 
This is a valid buffer to be returned to the cache. 
FIXBFRL: BEGIN 
OCAL 
LBINDX_ADDR, 
PARLKID; 


IF .BFRD CBFRDSV_DIRTY) 


BUG_CHECK (XQPERR, ‘should not have dirty buffers now’); 
PARLKID = .(if CURRENT VCB CVCBSW_RVNJ EQL 0 


THEN CURRENT _VCB CYCBSL_VOLL 
ELSE CURRENT_RVT 


IF .BFRD CBFRDSW_BFRLJ NEQ 0 
THEN 


We're already hooked up to a BFRL. 
in the cache in the first place. Nothin 
the BFRL. However, let's be paranoid an 
hooked up to the correct lock. 


Note that we are scanning an 
n-process List which can — contain buffers from a given volume 
CKBASIS contains the RVN, it is not 


_VOLLKIDJ 
RVTSL-STRUCL 
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BEGIN 
BFRL = BFRLD_ADOR (.BFRD CBFRDSW_BFRLJ); 


IF .BFRL pores LCKBASIS] NEQ .LOCKBASIS 
OR .BFRL CBFRLSL_PARLKID] NEQ .PARLKID 


BUG_CHECK (XQPERR, ‘wrong lockbasis"); 
LEAVE FIXBFRL; 
ELSE IF .INDX NEQ 0 
This BFRD is not hooked up with a BFRL yet. but we've already 
got a BFRL in hand (from an earlier hit) so just hook it up 
and bump the REFCNT in the BFRL. 
BEGIN 


BFRD CBFRDSW_BFRL] = .INDX; 
BFRL CBFRLS$W-REFCNT) = .BFRL [BFRLS$W_REFCNT) + 1; 


LEAVE FIXBFRL; 
END; 


There is no BFRL for this BFRD yet, so let's first see if a BFRL 
for this LOCKBASIS is already in the cache. 


LBINDX_ADDR = LOOKUP_LOCK (.LOCKBASIS, .PARLKID); 
INDX =". (.LBINDX_ADDR)<0,16>; 
WHILE .INDX NEQ 0 
DO 
BEGIN 
BFRL = BFRLD_ADDR (.1NDX); 


IF .BFRL CBFRLSL_LCKBASIS? EQL .LOCKBASIS 
AND .BFRL CBFRLSL_PARLKID] EQL .PARLKID 


N 
EXITLOOP; 

INDX = .BFRL CBFRLS$W_NXTBFRLJ; 

END; 


IF_ .INDX EQL 0 
THEN 


! We did not find a BFRL in the cache already. so take one off 
the free List and use it. 
; BEGIN 


IF CINDX = .CACHE_HDOR CF1IBCSW_FREEBFRLJ) EQL 0 


2 
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197 38 THEN 

I3t7 3¢ BUG_CHECK (XQPERR, ‘no free Lock block"); 

1975 9 ? ! Take our new BFRL out of the free BFRL List. 

1276 9 § ! Link it into the front of the hash chain. 

13e 2 i Fill in the lockbasis and parent lock ID fields. 

1399 955 : 

1980 954 BFRL = BFRLD_ADDR (.INDX); 

1981 957 CACHE_HDR trriecsy FREEBFRL] = .BFRL CBFRLSW NXTBFRLJ; 
1986 955 FRL CBFRLSW NXTBFRLJ = .(.LBINDX_ADDR)<0,165; | 
13 227 (.LBINDX_ADDR)<0,16> = .INDX; 

1985 961 BFRL At ee OT = ,LOCKBASIS; 

1358 oe BFRL CBFRLSL_PARLKIDJ = .PARLKID; 

1988 964 ! Test for LOCKBASIS of -1. <-1 is used for all buffers backed by the 

1989 965 ' volume allocation lock. Because there is a volume allocation lock 

1 966 ! associated with the VCB at all times, there is no need to separately 

1 967 ! keep a lock on those buffers in the cache. However, we will keep 

1 968 ! a BFRL around to avoid a lot of special casing, but it’s LKID field 

; 383 will be zero. 

i 14 

1 97 AND .BBLOCK CCURRENT_UCB CUCBSL_DEVCHAR2], DEV$V_CLUJ 
1 AND .CLUSGL_CLUB NEQ 0 


SSSSSSS333333SSS3 


N 
LKID_ADDR = BFRL CBFRLSL_LKIDI; 
END; 


Fill in the BFRD field that points to the BFRL. Bump the REFCNT 
in the BFRL. 


| 
| 
IF (.LOCKBASIS + 1) NEQ 0 | 
| 
| 


BFRD CBFRD$W_BFRL] = .INDX; 
BFRL CBFRLSW-REFCNT] = .BFRL CBFRLS$W_REFCNT) + 1; 


END; ! of FIXBFRL block | 


Store the current sequence number from the backing lock for this buffer. 
This must be done here because multiple buffers may be backed by a 
single lock. If one of them has been modified, the sequence number 

for that lock will have changed, yet unmodified buffers backed by 

the same do not have the same sequence number, even though they 

Ore Stink valid. Hence, stamp all buffers with the current sequence 
number. 


I 


CASE -BFRD CBFRDSB_BTYPE] FROM O TO 6 OF 


HEADER_TYPE): 
BFRD CBFRDSL_SEQNUM) = .LB_HDRSEQ C.LCKINDX); 


CDIRECTORY_TYPE, DATA TYPE): 
BFRD CBFRDSL_SEQNOM) = .LB_DATASEQ C.LCKINDX); 
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9 5 CDIRINDX_ TYPE): 
0 BEGIN 
1 LOCAL 
: DIRINDX : REF BBLOCK FIELD (DIRC); 
BFRD CBFRDSL_SEQNUM) = LB HORSEQ CL CKINDX; 
5 DIRINDX = CACHE HOR CFITBCSL_BUFBAS 
+ 5128(.BFRD = .CACHE-HOR CF lacs BFRDBAS])/BFRDS$S_BFRDDEF; 
DIRINDX CDIRCSL_DATASEQ) = .LB_DATASEQ C.LCKINDX); 


CBITMAP_TYPE]: 
BFRB CBFRDSL_SEQNUM] = .(LB_DATASEQ [0])<0,16,0>; 


CINDEX_TYPE]: 
BFRD CBFRDSL_SEQNUM] = .(LB_DATASEQ [0])<16,16,0>; 


CQUOTA_TYPE): 
BFRD CBFRDSL_SEQNUM] = .SAVE_VC_FLAGS<1,15,0>; 


TES; 
! Take the buffer off of the in-process queue and put it back 


: on the appropriate pool LRU List in the cache. | 
! Clear out CURPID in the BFRD to note we aren't using it anymore. 
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REMQUE (.BFRD, BFRD); 
PRS USED C.POOL] =_.BFRS_USED C.POOL) - 1; 
BFRD CBFRDSW_CURPID) = 0; 
POOL_LRU = CACHE_HDR ce\ipcsa POOL_LRU] + .POOL*8; 
§ INSQDE (.BFRD, .POOL_LRU CQBLAK)); 
ND; T of LOCKBASIS match. 

BFRD = .NXTBFRD; 
be END; ! of loop through pool bfrds. | 
068 If _.QHEAD NEQA .BFRD | 
ay BUG_CHECK (XQPERR, ‘screwed up in-process List’); | 
Ore END; ! of loop through all pools 
074 F .LKID_ADDR EQL 0 | 
075 N | 
$79 RELEASE _CACHE (); 
078 RETURN .LKID_ADDR 
079 
080 END; 


? 
vo4=000 if wSEp-1984 19:80:42 DP KSUMSMASTERSCF TIX, gRC IRDBLOK .032; 179° (199 
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| 
| 
| 
OBFC 00000 ENTRY nae qpOCkBASIS. Save R2,R3,R4,R5,R6,R7,° ; 277 | 
55 10 ¢2 SUBL2 : 
; EC AA 9E MOVAB =4(BAS : 2792! 
B OOAS CA 9E MOVAB ige(BASes Re : | 
OC AE D4 CLRL —LKID_ADD : 2808 
56 D4 1 CLRL INDX™ + 2809 | 
50 4 Ac D 1 MOVL LSKIND + 2810 
0080 Caso 1 MOVL BCGASEDEROD, LOCKBAS!S : 
F76A 1D BSBW  SERIAL_CACHE + 2812 
; b4 CLRL POOL + 2814 
08 AE cc AAG F 0 1$: MOVAQ = (BASE) [POOL], QHEAD : 2823 
54 Bf p MOVL § @QHEAD + 2826 
04 AE F4 AAG g 0 MOVZWL OT OCBASES LPOOLI, I + 2826 
04 AE D 00 2$: stl i. + 2828 
orga }f 80 BRW 298 : 
04 AE 07 OO03A 38: DECL =o > 2834 
3 64 DO 0003D MOVL (BFRD), NXTBFRD + 2835 
5 10 Ad 01 00040 CMPL 16(BFRD), LOCKBASIS + 2845 
20 if 0044 BNE 4s ; 
1€ 18 AG E 90046 BBS #3, 24(BFRD), 5$ + 2852 
50 67 09 0048 MOVL (R?) : 2858 
50 54 18 AO C 00046 SUBL3 24(R6), BFRD, RO ; 
50 20 C6 0005 DIVL2 #32, INDXO F 
4 DD 00056 PUSHL  BFRD > 2860 
01 AO OF 00058 PUSHAB 1 ( INDXO) : 
FE21 CF 02 FB 00058 CALLS #2, UNHOOK_BFRD ; 
50 54 00 99060 MOVL BFRD, RO + 2862 
0000v 30 9006 BSBW RETURN. BFRD : 
0165 31 00066 4$: BRW 2 + 2964 
04 18 AG 02 £1 00069 5$: BBC #2, 24(BFRD), 6$ : 2876 
FEFF D006. BUGW : 2878 
0000* 000 .WORD  <BUGS KOPERR!4> : 
50 98 AA DO BOR te 6$: MOVL -1 a (GAS RO : 2880 
OE AO B5 00076 TSTW  14(RO : 
06 12 00079 BNEQ 7$ ; 
50 7¢ AO 9E 00078 MOVAB 124(RO), RO > 2881 
04 11 OOO7F BRB : 
50 9¢ AA 00 00081 7$ MOVL <100(BASED . RO > 2882 
55 60 D0 09 5 8S MOVL (RO) ARLKID : 2880 
1A Ad BS 00 TSTW se tSERD > 2884 
0 g bd 096 Bove {RD RO : 2894 | 
3¢ 1A AG Re itd MOVZWL 26(BFRD), R1 : 
51 10 C4 One? MULL #16, R1 3 | 
51 1¢ ad CO 00097 ADDL 28(RO) R1 ; 
38 FO AY i: 0098 MOVAB ~-16(R1S, BFR : | 
5 08 a2 p a CPL B(BFRL), COCKBASIS ; 2896 | 
55 oc AS Of 3 CHPL —13(BFRL), PARLKID ; 2897 | 
04 13 000A BEQL 108 ; 
FEFF QOOAB 9S: BUGW : 2899 | 
9009+ 0O0aD WORD <BUGS_NOPERR!4> : | 
OOA1 31 QOOAF 10$: BRW 1 ; 2901 | 
36 b3 B2 11$:  TSTL INDX : 2903 | 
4 B4 BNEQ 6$ ; | 
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yOee 000 =3ee7} 32 99: 33:1) 42 DISKSVMSMASTER: CF11X.SRCIRDBLOK.B32; = 9 485 
61 0094 CAs 1 MOVL  148(BASE)CROJ, (R1) ; | 
50 04 i? y n 228: MOVE 278 N ; 3003 
61 oped 4 17A MOVL ath PRO"? (R1) : 
38 11 Ve BRB 27$ : 
50 g4 AC DO 00180 238 MOVL = LCKIND ; 5010 
1 0094 cA40 DO 00184 MOVL 148 (BA Sé){RO3, (R1) : 
0 67 DO 0018A MOVL_ (R7) + 3011 
51 4 18 AQ ( 1 p SUBL3 sero) BFRD, R1 : 012, 
i 1 Q 1 ASHL u9 R1. RI : 
1 0¢ 196 DIvL2 #32, Rf : 
51 60 ¢O 001 ADDL2 (ROS, DIRINDX : | 
0 04 aC DO 0019 MOVL LCKINDX, R + 3013 
08 Al 6840 DO OO1A MOVL (R11)CROJ, 8(DIRINDX) : 
11 11 OO1A BRB 27$ : 2997 
61 6B 3¢ OIA? 24$ MOVZWL (R11), (R1) + 3017 
OC 11 OO1AA BRB 7$ : 
61 02 AB 3C OO1AC 25$:  MOVZWL 2(R11), (R1) + 3020 
06 11 0018 RB 7$ : 
61 AG OA OF 01 FF 01B2 26S: XTZV. #1, #15, -92(BASE), (R1) : 3023 
54 64 OF 001B8 27$:  REMQUE (BFRD) : 3033 
F4 AAG3 B7 001BB ECW =12(BAse) CPOOL] > 3034 
1C Ab 84 01BF CLRW  28(BFRD : 3035 
50 00 8743 7E Oite MOVAQ 80 (7 LPoOL J, POOL_LRU : 3036 
50 28 cO 001C ADDL2 #40, POOL_LRU ; 
04 80 64 OF QO1CA INSGUE (BFRD), St CPOOL _LRU) ; 3037 
54 6E p O1CE 28$: MOVL  NXTBFRD, BFRD : 3040! 
FESE 31 00101 BRW > 2828 
54 08 AE 01 .001D4 29$:  CMPL = GHEAD, BFRD + 3044 
04 13 00108 BEQL 30$ : 
FEFF OOIDA BUGW + 3046 
9000s 001DC WORD hae KOPERR! 43 : 
FE3E 53 01 03 F1 OO1DE 308 ACBL > 2814 
0c AE DS OO1E4 TSTL tKio. : 3050 
0 iF 001€7 BNEO : 
FOF9 30 OO1E9 BSBW RELEASE CACHE : 3052 
50 Oc AE DO OOTEC 318: MOVL LKID_ADBR, RO : 3054 
04 001F0 RET : 3056 
; Routine Size: 497 bytes, Routine Base: S$CODES + OAFC 


1G-Se0-1964 00:55:1) VAKTT BlisscS2 A-O-742 Page, 65. 


2 INDX = (.BUFFER = .CACHE_HDR CF11BC$L_BUFBASE])/512 + 1; 

¢ BFRD = BFRD_ADDR (.INDX); 
SERIAL_CACHE (); 

IF ,BFRD (BFRDSL_LBN] NEQ 0 

! BFRDSL_LBN neq 0 means that this buffer is in the hash lookup List. 


i We need to remove it from the List it is currently 
! in prior to resetting the LBN field. 


; . ¢ sh } GLOBAL ROUTINE RESET_LBN (BUFFER, LBN) : L_NORM NOVALUE = : 
: 20 7 1 !4¢ : 
; 2085 01 : 
: 4] $8) : FUNCTIONAL DESCRIPTION: : 
; 2088 ts 1! This routine changes ee ros }¢ent LBN of the indicated block ‘ 
; 2089 064 1} and marks it as d rty pn va : 
; 2090 065 1! It is assumed this will be fol towed soon by a buffer write | ¢ 
; 2091 066 1} operation for the new Lbn. ‘ 
; 209 067 1: : 
; 209 68 1 { CALLING SEQUENCE: | : 
; O3e % : RESET_LBN (ARG1, ARG2) | : 
; 09% 071 1! INPUT PARAMETERS: | ; 
; 209 ors i ARG1: address of block buffer ; 
; 94 1h ! ARG2: new LBN : § 
: 2100 075 1! IMPLICIT INPUTS: | ig 
3 133 B78 : buffer descriptor arrays :§ 
° | e 
; 198 078 1 | OUTPUT PARAMETERS: | : § 
3 2104 079 1: NONE | : 
3 2105 080 1} : § 
; 138 081 1! IMPLICIT OUTPUTS: : 
to : 
: 2109 084 1 ' ROUTINE VALUE: 3 
: Sit A bE ae :§ 
; 11 087 1 | SIDE EFFECTS: 3 ¢ 
3; 211 088 1: backing LBN for buffer altered | : 2 
3 2114 089 1 buffer marked as dirty and valid. : r, 
3: 2115 090 1! : 2 
; 091 1 i-- | : r4 
3 211 4 1 : ¢ 
; 2118 09 BEGIN | : é 
: 2120 095 BIND_COMMON; : é 
: $153 $9 LOCAL ; 
: $155 098 INDX, | 3 
3 2126 099 BFRD : REF BBLOCK, ; ‘ 
; 15 90 INDX_ADDR; ; 
3 21 5 3 4 
: 2128 : ¢ 
3: 2129 2 ¢ 
; 2130 3 4 
oy ‘ 
; ; g : 
> 2135 a4 
3 a) ; 4 
eo 4. 4 
; 21 3 4 


Ww 
oo 


$$ ee —— —_—— - — = 7 teat 
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BEGIN | 
INDX_ADDR = LOOKUP_LBN (.BFRD CBFROSL_LBNI); 
IF .(.INDX_ADDR)<0,16> EQL .INDX 

(. INDX_ADDR)<0,16> = .BFRD CBFRDSW_NXTBFRD) 


ELSE 
BEGIN 


—> bs) > db 


INDX_ADDR = BBLOCK C BFRD_ADDR (.(.INDX_ADDR)<0,16>), BFRDSW_NXTBFRD] | 
UNTIL .(TINDX_ADDR)<0,16> EQL™. INDX; | 


(. INDX_ADDR)<0,16> = .BFROD CBFROSW_NXTBFRDJ; | 


4 
4 
4 
4 
4 

4 ' 

END 

END; 

Store the desired LBN and hook it up in the LBN hash List. 

i 


BFRD CBFRDSL_LBN) = .LBN; 


WN | SO OBNOUE WN “ODO ONAOUNE W009 


INDX_ADDR = LOOKUP_LBN (.LBN); 
BFRD-CBFRDSW_NXTBFRDJ = .(.INDX_ADDR)<0,16>; 
(. INDX_ADDR)20,16> = .INDX; 


BERD [BFRDSV VALID] = 1; | 
BFRD CBFRDSV-DIRTY] = 1; 


RELEASE_CACHE (); 
END; ! end of routine RESET_LBN 
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003¢ 00000 -ENTRY RESET_LBN, Save R2,R3,R4,R5 : 3057 

55 FC AA rt 0002 pty -4(BASE), R ; 3093 

52 04 AC 00 B85 C3 00006 SUBL a0(R5) BUFFER, R2 ; 3102 | 

52 00000200 BF c6 000 DIVL2 @ 1g R2 : | 

3 01 Ag 1 MOVAB 1(R25, INDX ; 

& p 1 MOVL (RS), R > 3104) 

52 5 05 000A ASHE #5 Inox R2 ; 

32 18 AO CO 0001 ADDL2 24(R0), R2 : 

5 30 ¢ 002 SUBL2 #32, BFRD ; 

F571 0 BSBW SERIAL CACHE : 3106 

08 A2 D 99 8 TSTL (BFRDY : 3108. 

41 13 00028 BEQL 6 4$ : 

51 65 0020 MOVL (R5), R1 ; 3118) 
50 4 Al 3C 99 0 MOVZWL 20(R1), RO ; 
ze 99 08 A2 1 7A 0 EMUL #1, 8(BFRD), #0, =(SP) ; 
5 8E 0 7 A EO:V —s RO. «(SP)+, RO, RO ; 
g D 0 F TSTL =o ; 
1 41 BGEG Sts : 
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160 bytes, Routine Base: S$CODES + OCED 


; Routine Size: 
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19-808- 1382 90:33:03 DISKSVMSMASTER:CF11X.SRCIRDBLOK.B32; 1 . had 
GLOBAL ROUTINE MARK_DIRTY (BUFFER) : L_NORM NOVALUE = 


: 


++ 


FUNCTIONAL DESCRIPTION: 
This routine marks the indicated buffer for write-back. 


CALLING SEQUENCE: 
MARK_DIRTY (ARG1) 


INPUT PARAMETERS: | 
ARG1: address of block buffer 


OONAUNLS WO O@ 


PUPVSIWSVSVSISISISIIS ES 


IMPLICIT INPUTS: 
CURRENT _VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

' buffer marked for write-back 
1 
1 

BEGIN 
BIND_ COMMON; 


| 
| 
IMPLICIT OUTPUTS: 
NONE | 
| 
i 


LESRESLSSSLSSLAV LS SSVSAPLAVES SSIS AR 


DED III IAI et et tt kk kk kk a kh ot 
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LOCAL 
BFRD : REF BBLOCK, 
INDXO; 
INDXO = (.BUFFER - .CACHE_HDR CF11BC$L_BUFBASE))/512; 
IF .INDXO<0,16> GEQU .CACHE_HDR CF11BC$W_BFRCNTI 
BUG_CHECK (BADBUFADR, ‘buffer addr out of range’); 

BFRD = .CACHE_HDR CF11IBCSL_BFRDBAS) + .INDXO*BFROSS_BFRDDEF; | 
If NOT .BFRD CBFRDSV_VALID) OR .BFRD CBFRDSW_CURPID) EQL 0 | 
BUG_CHECK (XQPERR, ‘expect it to be valid and in-process"); 

BFRD CBFRDSV_DIRTY) = 1; 
END; ! end of routine MARK_DIRTY 
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59 bytes, 


; Routine Size: 


: 


14-Sep-19 
ROUTINE RETURN_BFRD (BFRD) : L_JSB_1ARG NOVALUE = 


1! 

! This routine completes the return of the given BFRD to the seprepe rete 
' pool in the cache. It gzpects that it has already been unhooked from 
: the hash Lists and the BF 


wn 


L taken care of. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
BFRD : REF BBLOCK; 
BIND_COMMON; 
LOCAL 
POOL, 
POOL’LRU =: REF BBLOCK; 
POOL = .BFRD CBFRD$V_POO 


uw 
ee ee ee 
OWONOULSWN—OO0@ WE wr 


50 
7: 

POOL_LRU = CACHE. HDR"CF1 18¢$0_POOL_LRUJ + .POOL*8; 

Credit our buffers in use count if this was on our in-process List. 


IF {BF RD CBFRD$W_CURPID] NEQ 0 
BFRS_USED C.POOL] = .BFRS_USED [.POOL] - 1; 
BFRD BFROSL_LBN} = 0; 
BFRD$L-UCB) = 0: 
BFRD Srnost-Seonony = = 0; 
EQNUM] = 0; 


CONOUS WN 


BFRD CBFRDSL—S ; 
BFRD CBFRD$W-CURPID) = 0: 
BFRD CBFRDSW-NXTBFRD) = 0; 


! Remove from either the in-process List or it's current position in 
' the cache LRU (whether curpid was zero or not) and move to the head 
of the cache LRU List. 


REMQUE (.BFRD, BFRD); 
INSQUE (.BFRD, POOL_LRU COFLNK)); 


Be Se Ge Fe Fe + Se Se Oe Se Se Se Se Se Ge Se Ge Oe Ge Se Ss oe Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Oe Oe Os Se Oe OH Se Oe Se ee 


COONOUNES WO OBNOUE WN "OO OVNOU SW O 


52 DD 00000 RETURN. BFRD: 


SHL R 
9 00 cf 6000 EXTZV Pt #2, 24(BFRD), POOL 
FC BA41 = 7E 0000 MOVAQ a@-4(BASE)CPOOL), POOL __LRU 


7 
1b-se 1984 00:53:11 VAX=11 Bliss-32 V4.0-742 
4 Be 99:39:43 DISKSVMSMASTER:CF11X.SRCIRDBLOK .B32; 
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eee 
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Pp 


- SRC IRDBLOK .B32; 1 


“11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CF11X 


vAX 


v04=000 


(POOL_LRU? 


E)CPOOLJ 
BFRD 


WMnAaQ * A 


#40, POOL_LRU 


28(BFRD) 
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43 bytes, Routine Base: S$CODES + O0DC8 


; Routine Size: 


SST STS SE ST ST SE SE WE SE 


35 
ge 


GLOBAL ROUTINE INVALIDATE (BUFFER) : L_NORM NOVALUE = 


lee 
' 


FUNCTIONAL DESCRIPTION: 
This routine invalidates the indicated buffer. 


CALLING SEQUENCE: 
INVALIDATE (ARG1) 


INPUT PARAMETERS: 
ARG]: address of block buffer 


83. ~~ 
POPIPIPIPOPOPIPPOPINOPOPOPoPonunofnonofnoryd 
real * al *al *al al * al *al *al al Al Al Al Al AL ah Ah dn anal 
CONAUE AR!" CO OONOUS WTO 


L. 
BFRD : REF BBLOCK; 


BFRD = ((.BUFFER - .CACHE_HDR CEIIBCSL _BUFBASE])/512)*BFRDSS_BFRDDEF 
+” .CACHE_HDR CF116C$L_BFRDBASJ: 


BFRD FBERDSV_DIRTY = 0; 
BFRD CBFRDSV-VALID) = 0: 
I 
T 


i 
i 
i 
i 
} 
i 
i 
i 
! IMPLICIT INPUTS: 
: NONE 
94 ' 
! OUTPUT PARAMETERS: 
38 H NONE 
9 8° : 
0 ! IMPLICIT OUTPUTS: 
99 71 : NONE 
00 i ' 
01 7 ! ROUTINE VALUE: 
4 74 : NONE 
0 75 : 
04 7 ! SIDE EFFECTS: 
05 : buffer contents forgotten 
306 ; 
307 feo 
08 
r4 BEGIN 
BIND_COMMON; 
2 LOCAL 


—S et ae et 


WN 0 DONO VE WNC OONOU SW O 


-BFRD CBFRDSW_CURPID) NEQ .(CTLSGL_PCB CPCBS$L_P1DJ)<0,16> 
BUG_CHECK (XQPERR, ‘expected this to be in-process'); 


! Pull this buffer out of it's current position and place it at the 
! front of the List so it will be the next buffer tossed off of our 
in-process List. 


POOL = .BFRD CBFRDS$V_POOL); 
REMQUE (.BFRD, BFRD)? 
INSQUE (.BFRD. BFR_LIST C.POOL, QFLNKI); 


F 
HE 


PIPPI PIPOPIPIPINPIPDPIMIMININIMIPINININININ IIIA) a tt st st st st kt tk kk tk kk tk kt td 


WAA AW AANA AANA AANA AAW 


WOOD OOO OO -000090000000000 000900 II 
SSREVLSSSTESSRLINLSSSVSAPANV— Sse 
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7 
} 
| 
| 
| 
| 
| 


ROI 


? 
16-Sep-1984 00:53:11 VAX"11 BLiss-32_v4.0-742 Page 71 
er eeen tae Poe eaity Wa ehl teach Te Ske sepeLox.032:1°% 19) 


vo 


BITMAP_VBN = 0; 
END; ! end of routine INVALIDATE 


7 
p if «BUFFER EQL .BITMAP_BUFFER 
HEN 
1 
1 
12 


So 
o 


«ENTRY INVALIDATE, Save nothing 
m (BASE), R 


0 : 3250 
50 FC OA 09 itd Ov. : 3539 
51 046 AC 0 ¢ 9006 SUBL (RO), BUFFER, R1 : 
31 00000200 8F (C6 000 DIVL2 #512. R1 
1 0 ¢4 0001 MULL 2, R 
51 18 AO co 007 ADDL 24(RO), BERD 3290 
18 «A o¢ A 00019 BICB 2, 24(BFRD) 3293 
50 000000006 00 DO 90010 MOVL L$GL_PCB 3295 
60 Ad 1¢ Al Bi 00024 
04 13 00029 BEQL 
FEFF 00028 BUGW 
0000* 0002p .WORD <BUGS_XQPERR!4> 
50 18 «Al 02 00 EF OOO2F 1$: EXTZV. #0, #2, 24/BFRD), POOL 3304 
51 61 OF 00035 REMQUE (BERD). BFRD 3305 
50 CC AASO 7E 000 MOVAQ =52(BASE)CPOOLJ, RO 3306 
60 61 OE 00030 INSQUE (BFRD), (RO) 
BC AA 04 AC 01 00040 CMPL BUFFER, -68(BASE) 3308 
03 12 00045 BNEQ 
B4 AA D4 00047 CLRL  -76(BASE) 3310 
04 0004A 28: RET 3312 


; Routine Size: 75 bytes, Routine Base: S$CODES + ODF3 
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er8een 188s 93:33:02 PT a SumBHASTeRccy tinceheIRDBLOK.032:1°%" «205 
GLOBAL ROUTINE WRITE_HEADER : L_NORM NOVALUE = 


~NM 


FUNCTIONAL DESCRIPTION: 


; 1 
1 
4 1 
5 1 ! 
1 ‘ 
$ 18 1 
rt 1 This routine writes out the currently resident file header. 
0 i CALLING SEQUENCE: 
1 WRITE_HEADER () 
§ i INPUT PARAMETERS: 
4 ; NONE 
' | 
28 ' IMPLICIT INPUTS: 
2 FILE_HEADER: address of current file header 
59 i OUTPUT PARAMETERS: 
rs NONE 
é 33 i IMPLICIT OUTPUTS: 
$3 IO_STATUS: status of I/0 transfer 
365 33 i ROUTINE VALUE: 
33 ! NONE 
367 Hh ! 
8 3 i SIDE EFFECTS: ; | 
69 4 ! checksum checked, header written 
371 34 ! 
71 4 !e= 
7 4 
2 BEGIN 
4 BIND_ COMMON; 
4 
4 


EXTERNAL ROUTINE 
CHECKSUM : L NORM; ! compute file header checksum 


: The checksum of the header should be good, since all routines that modify 
! the header bless it with a new checksum when they are finished. Check the 
: checksum and write the header. | 


IF NOT CHECKSUM (.FILE HEADER) ; ‘eas 
THEN BUG_CHECK (WRTINVADR, FATAL, ‘ACP attempted to write an invalid file header’); 
WRITE_BLOCK (.FILE_HEADER); 

END; ! end of routine WRITE_HEADER 


NRO ODBNOA UNE WIN 0 ODNOAMU EWN $$ O ODNOUN EWN OO OONAOYV FW" OOOVNOUSw 


SPRIPIPINIMIHI/INPIMI|HI/ DF ININIA| III nt st sr td td 


PEQEMA ANNI 


EXTRN CHECKSUM, BUGS_WRTINVHDR | 


0000 0000 ENTRY WRITE_HEADER, Save nothin > 3313) 
04 AA ODD $000 PUSHL 4(BASE) : . 3 335} 


; Routine Size: 


26 bytes, 


00006 ff 


F967 —sCF 


Routine Base: 


ifgee: 


0 EF 988 
FEFF D 
0000* F 

04 AA OD Boia 18: 
01 FB 00014 
04 00019 


SCODES + OE3E 


1986 93:39:23 


AX=11 BLiss-32.V4,0-74 p 3 
NIK SUMEMASTERSCY 119, SRE IRDBLOK.B32:1° 9" (203 


CALLS 40 SUECKSUR : 
BUGW ; 3358 
~ WOR <BUG$_WRTINVHDR!4> : 
PUSHL ; 3360 
CALLS #1, WRITE_BLOCK : 
RET 3; 3362 


v0e= 


WWIAILAPOPOPOROPoRonofnony 2 


WN "SO OOBNOUESWN—“OOOnNOuSwWwNn—OoO 


Fe ae oP oe ot oe ot ot et tke tke ee ek te ee 


SOLES 


'e4 
' 


FUNCTIONAL DESCRIPTION: 


INPUT PARAMETERS: 


i SIDE EFFECTS: 
; dirty buffers written. 


bas 

BEGIN 

BIND_COMMON; 

INCR POOL FROM 0 TO 2 


BEGIN 
LOCAL 


I, 
QHEAD : REF BBLOCK, 
BFRD : REF BBLOCK; 


090909 09 09 09 09 08 NINN NINN NINO OA AAO O 


BFRD = .QHEAD CQFLNK); 
I = .BFRS_USED C.POOL); 
UNTIL .1 EQL 0 

dO 


BEGIN 
l= .]-1; 


IF (.LOCKBASIS EQL 0 


OOOOOOOO0OO@D 


SE AVIWN AAAI AAA 
SSSRLENLSSSLSSRAN SSS SS FS ES Sate PON SS SS SSS 


COOOCOCOOCOSo 


Ft led et 


BFRD = .BFRD CBFRDSL_QFL); 
END; 


IF ,QHEAD NEQA .BFRD 


END; 
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1Ssen-1964 99:88:11 


GLOBAL ROUTINE WRITE_DIRTY (LOCKBASIS) : L_NORM NOVALUE = 


i This routine writes all buffers which were modified back to the 
disk from whe:.ce they came. 
i 


QHEAD = BFR_LIST C.POOL, QFLNK]; 


OR .BFRD CBFRDSL bpereag ss. EQL .LOCKBASIS) 
AND .BFRD CBFRDSV_DIRTY 


WRITE_BLOCK (((,BFRO-.CACHE HOR CF11BCS$L_BFRDBAS]) /BFRDS$S_BFRDDEF)*512 
+ .CACHE_HDR CFTIBC$L_BUFBASE)); 


BUG_CHECK (XQPERR, ‘in-process queue screwed up"); 


END; ! of routine WRITE_DIRTY 
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Routine Base: S$CODE$S + 0E58 


86 bytes, 


E 
: 


a5 
ge 


GLOBAL ROUTINE TOSS_CACHE_DATA (LCKINDX) : L_NORM NOVALUE = 


lee 
' 


FUNCTIONAL DESCRIPTION: 


: This routine invalidates all data blocks associated with 

: the given lock basis, after first writing dirty blocks. 

: The data sequence number is incremented, which invalidates 

‘ copies of these blocks on other nodes, and blocks found in 

: our cache will be marked invalid, causing them to be tossed 
‘ from the cache when the serialization lock is lowered. 

} Only the data block pool is scanned. 
! 

i 

i 

ie 
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Dt et et et ee 


Soros 


SIDE EFFECTS: 
dirty buffers written, appropriate buffers invalidated 


D hk ek ee et ek ek ek at et ek ek ek et ek ee ek ee ee ee 
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BEGIN 
BIND_COMMON; 
LOCAL 
I 
LOCKBASIS, 
OHEAD : REF BBLOCK, 
BFRD : REF BBLOCK: 


LOCKBASIS = .LB_BASIS C.LCKINDX]; 


QHEAD = BFR_LIST (1, QFLNK); 
BFRD = .QHEAD COFLNK); 


1 = .BFRS_USED (1); 
UNTIL .1 EQL 0 
D0 


BEGIN 
I= .]l-1; 


LF ,BFRD C[BFRDSL_LOCKBASIS] EQL .LOCKBASIS 
BEGIN 
IF .BFRD CBFRDSV_DIRTY) 


WRITE BLOCK (((.BFRO-.CACHE HOR CF1IBCSL Hf, ROOAS I) /0F ROSS DF RODEF 9918 
+ .CACHE_HOR CFTIBC$L_BUFBASE)); 


BFRD CBFRDSV_VALIDJ = 0; 
END; 


BFRD = .BFRD CBFRDSL_OFLJ; 
END; T of loop through in-process data block pool 
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IF .QHEAD NEQA .BFRD 
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Routine Base: S$CODES + OEAE 


99 bytes, 


- 
N 
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3481 


8 

L 1B-se -1984 00:53:1 VAX-11 Bliss-32 V4.0-742 
yOe+ 000 1 ~3ep-19 4 90:33:03 DISKSVMSMASTER:CF11X.SRC 
14 3 GLOBAL ROUTINE KILL_CACHE (UCB) : L_NORM NOVALUE = 
: 1g 1 44 
3 1 2. avn 
5 1 § 1 ! This routine scans through al FRD's in the cache tossing out 
8 1 1 ; all those that match the specified UCB. 
: q= 
; ¢ 1 
i $o¢5 491 BEGIN 
; 5 493 BIND_ COMMON; 
: $ 495 2 LOCAL 
; 2508 496 BFRD : REF BBLOCK, 
> 2529 49 PIDINDX : WORD; 
: 2531 49 BFRD = .CACHE_HDR CF11BC$L_BFRDBAS); 
: $3 é 300 PIDINDX = .CTCS$GL_PCB CPCBSL_PID); 
: 25 4 208 SERIAL_CACHE (); 
; ; 304 INCR INDXO FROM 0 TO (.CACHE_HDR CF11BC$W_BFRCNT) - 1) 
; 335 306 BEGIN 
> 2540 508 IF .BFRD CBFRDSL_UCB) EQLA .UCB 
> 2541 509 
: $308 aye aun 
: 2544 318 4 IF .BFRD CBFRDSW_CURPID] NEQ 0 
; 345 513 4 THEN 
; 46 514 BEGIN 
: 347 315 IF <BFRD CBFRDSW_CURPID] EQL .PIDINDX 
; 29 219 BFRD CBFRD$V_VALID] = 0; ! it will get tossed on unlock 
> 2550 518 5 END 
; 351 219 4 ELSE 
; 33g 521 UNHOOK_BFRD (.INDXO+1, .BFRD); 
3 323 5 ; RETURN_BFRD (.BFRD); 
3 55 5 4 END; 
; 3 534 END; 
; 3 : 226 BFRD = .BFRD + BFRDSS_BFRDDEF; 
3 2? 5 
: See 36 ae 
; 36¢ 3 0 RELEASE_CACHE (); 
: 2564 532 1 END; 


003C¢ 00000 -ENTRY KILL CACHE, Save R2,R3,R4,R5 


; 3482 
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Routine Base: S$CODES + OF11 


88 bytes, 


: 
: 


CT 


: 
ISIS BEL) SMR a 
N 


IRDBLOK.B32;1 (24) | 


On 


: 


4 $8 3 ! GLOBAL ROUTINE WRONG_LOCKBASIS (HEADER) : L_NORM NOVALUE = 

3 , i 

. ! 

3 ; 1 ! This routine returns the given buffer as a result of discovering 

: 257 3 1 ! we had the wrong lockbasis when prgetng ee 

3 M 1! If it was reed rom disk, we must invalidate it, as we stored the 

3 257 40 1: wrong lockbasis in its bird. If it was found in the cache, 
3 re 2 : simply return it and credit us for returning it. 
: 6 43 1 in | 
5 7 44 «1 

3 a 45 BEGIN 

P 7 28 | 
H 80 4 BIND_COMMON; 

; 2581 rt 

3 ¢ 4 LOCAL 

3 550 POOL, 

H 551 BFRD : REF BBLOCK, 

3 $84 226 POOL _LRU : REF BBLOCK; 

3 344 333 SERIAL_CACHE (); 
3; 2589 28 BFRD = ((.HEADER - .CACHE_HDR CF11BCS$L_BUFBASE))/512) *BFRDSS_BFRDDEF 

3 4 44 + ,CACHE_HDR CF11BC$L_BFROBASJ; 
; 332 559 2 IF .BFRD CBFRDSW_BFRLJ EQL 0 
3; 259 560 | 
3: 2594 561 BFRD CBFRDS$V_VALID) = 0 

3 2595 286 LSE | 
3 238 56 BEGIN 
: 259 564 POOL = .BFRD CBFRDS$V_POOL); | 
; 2598 565 REMQUE (.BFRD FRD); 
3; 2599 566 BPRS USED C.POOL) = .BFRS_USED C.POOL) - 1; 
; 2600 567 BFRD CBFRDS$SW_CURPID) = 0; 

3 2601 568 POOL_LRU = CACHE_HDR CF11BC$Q POOL_LRU] + .POOL*8; 

3 one 29? INSQUE (.BFRD, .POOL_LRU CQBLAK)); 

:; 260 570 END; 

3; 2604 571 

; 2605 276 RELEASE_CACHE (); 

3; 2606 57 END; 


009¢ 00000 .ENTRY WRONG LOCKBASIS, Save R2,R3 ; 333 
F318 9002 BSBW SERIAL CACH : 3554 
50 FC AA DO 0000 MOVL. =4(BASE) : 3556 
04 AC 0¢ 9 SUBL3 (RO), HEADER, R1 F 
51 00000200 8F Cé DIVL2 #5i2. R F 
1 0 ¢4 0001 MULL2 #32, R ; 
1 18 Ag ¢ 1 ADDL 4(RO), BERD ; 3337 
1A OA & 1c TSTW 6(BFRO) : 3559 
18 A 03 4 00021 BICB2 #8, 24(BFRD) 3561 | 
C ‘ $i BRB 2$ : | 
} 


| 
voe=000 hacia PO:35:2 — DISkSumsna$tensch 1ix- see JRDBLoK .832:1°%* (20) 


50 18 «Al 92 00 FF 00 7 1$: EXTZ2V. #0 #2, 24(BFRD), POOL 3 3564 
1 61 OF D REMQUE (BFRD). BFRD : 3565 
F4 AAGO B7 000 DECW <12(BaSe) {POOL + 3566 
1c AI B4 00 CLRW  28(BFR : 3567 
FC BAGO E 00037 MOVAQ @-4(BASE)CPOOLJ, POOL_LRU : 3568 
50 of 003¢ ADDL2 #49, POOL _LRU ; 

04 $1 . F INSQUE (BFRD), @%(POOL_LRU) : 3569 
F732 43 28: BSBW  RELEASE_CACHE : 35 ‘ 

84 00046 RET : 357 


; Routine Size: 71 bytes, Routine Base: S$CODES + OF69 
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: 683 a GLOBAL ROUTINE KILL_BUFFERS (POOL, LOCKBASIS) : L_NORM NOVALUE = 
: 261 1 !44 

3 261 ie 1 

; 261 4 1 ! This routine scans through all BFRD's in the cache tossing out 
: 261 79 1°! all those in the specified POOL for the CURRENT_UCB. 

; oie ? : If the directory data pool is specified, LOCKBASIS must match also. 
: 61 1 ioe 

; e19 ; 1 

3 261 BEGIN 

3 261 5 

; 6 o $ BIND_COMMON; 

: 26 é 8 LOCAL 

: 26 BFRD : REF BBLOCK, 

3 2624 90 BFRD_CNT : WORD 

3 2625 591 START BFRD : WORD, 

; 6 $ 39¢ PIDINDX : WORD; 

3 2628 594 3 BEGIN 

; ° is 296 IND 

: 6 1 397 POOLCNT = CACHE_HDR CF11BC$W_POOLCNT] : VECTOR C,WORD); 
; 6 § 399} START_BFRD = 0; 

> 2635 601 3 IF .POOL NEQ 0 

: 26 60 THEN 

3 26 603 4 BEGIN 

3 638 604 4 START_BFRD = .POOLCNT (0); 

3 2639 605 4 IF .POO 

3 2640 606 4 THEN START_BFRD = .START_BFRD + .POOLCNT (1); 

; et reid END; 

: ro 609 3 BFRD_CNT = .POOLCNT [.POOL]; 

oe a 

; 646 61¢ BFRD = .CACHE_HDR CF11BC$L_BFRDBAS] + .START_BFRD*BFRDS$S_BFRDDEF; 
; ot! 613 PIDINDX = .CTC$GL_PCB CPCBSL_PID); 

; 649 615 2 SERIAL_CACHE (); 

: 631 ei? INCR INDXO FROM .START_BFRD TO (.START_BFRD + .BFRD_CNT = 1) 
: 638 19 BEGIN 

: 2655 621 IF .CURRENT_UCB EQL .BFRD CBFRDSL_UCBI 

: 656 6 : 4 AND (.POOL 

> 265 623 4 .BFRD CBFRD$L_LOCKBASIS) EQL .LOCKBASIS) 

; $28 624 3 THEN 

: 265 6 5 4 BEGIN 

: 2661 6 $f IF .BFRD CBFRDS$W_CURPID) NEQ 0 

; O96 6 3 4 THEN 

3; 266 6 2 BEGIN 

3 2664 630 IF .BFRD CBFRDSW_CURPID] EQL .PIDINDX 


ee 1 


& 
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; 631 THEN 
; ? § . BFRD CBFRDSV_VALID] = 0; ! it will get tossed on unlock 
; 4 4 
; 635 BEGIN 
; 6 § UNHOOK _BFRD (.INDXO+1, .BFRD); 
; 6 RETURN_BFRD (.BFRD); 
H 6 3 4 END; 
; 63 END; 
; 640 
; 6] BFRD = .BFRD + BFRDSS_BFRDDEF; 
P+ | 
; $08 END; 
; 644 | 
; 645 2 RELEASE_CACHE (); | 
r ose 
; 647 1 

| 


003¢ 00000 ENTRY KILL BUFFERS, Save R2,R3,R4,R5 ; 3574 
AA 00000078 8F C1 00002 ADDL3 #1207 -4(BASE), R1 : 3597 
53 B84 00008 CLRW  START_BFRD : 3599 
50 04 Ac 09 0000 MOVL POOL, ~RO : 3601 
0¢ 13 00011 BEQL 1$ ; 
53 61 B80 00013 MOVW  (R1), START_BFRD + 3604 
02 50 01 00016 CMPL =s_ RO, #2 : 3605 | 
04 if} 00019 BNEQ =-'1$ ; 
53 02 Al AO 0001B ADDW2 2(R1), START_BFRD + 3606 
54 6140 BO OOOTF 1S: MOVW  (R1)CROJ, BFRD_CNT : 3609 
50 FC OAA b0 000 3 MOVL  -4(BASE). RO : 3612 
51 53 3C 000 MOVZ2WL START_BFRD, R1 : 
51 20 (C4 O002A MULL2 #32, Ril ; 
51 18 AO C1 900 D ADDL3 24(RO), R1, BERD : 
50 000000006 00 D0 00032 MOVL  CTLSGL_PCB, RO > 3613 
55 60 AO B80 00039 MOVW 96(RO)> PIDINDX : 
F296 0 0003p BSBW SERIAL CACHE > 3615 
50 53 3¢ 9040 MOVZWL START BFRD, RO : 3617 | 
54 54 3¢ 0004 MOVZWL BFRD_CNT, R4 ; | 
54 ; c0 0046 ADDL2 RO, R4& ; 
53 ¢ 0004 MOVZWL START_BFRD, INDXO ; | 
; D 0 4C DECL INDxO ; 
11 0004 BRB ; 
A2 9% MA BI 90038 2s: CMPL -108(BASE), 12(BFRD) ; 3621 | 
2E Ne 0 BNEQ ; 
01 04 AC 1 0005 CMPL POOL, #1 : 3622 | 
0 if 058 BNEQ ; | 
AC 10 A2 01 0005D CMPL 16(BFRD), LOCKBASIS > 3623 
21 1 9062 BNE © «5$ : 
1¢ =A2 BS 00064 38: TSTW 28(BFRD) : 3627 
0C 13 00067 BEQL 6 4$ ; 
55 1c OA Bi 069 CMP gB(BFRD), PIDINDX > 3630 
a2 b8 Ba poder oreo. BB. 26¢BERD) : 36 
08 # $095 RB 5$ ; 338 | 


4 VAX-11 Bliss-32 V4.0-742 
aa 98: 30: i} DISKSVMSMASTER:CF11X.SRCIRDBLOK.B32; (79 
5 PUSHL 
01 A PUSHAB (INDO) 
F94GE gf CALLS #2, UNHOOK_BFRD 
0 Ov BFRD 
FD SBW RETURN BF BFRD 
38 g ADDL2 
C4 AOBLSS R4, INDXO 
FOA BSBW  =-RELEASE NCACHE 
RET 
; Routine Size: 144 bytes, Routine Base: $CODES + OFBO 
; 268 648 1 
; 268 649 1 END 
684 650 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 4160 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Tae pe see ern a ee Syabols oo--<--- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 90 0 1000 00:01.9 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RDBLOK/OBJ=OBJ$:RDBLOK MSRC$:RDBLOK/UPDATE=(ENH$:RDBLOK) 
; Size: 4153 coge + 7 data bytes 
; Hy Time 1 


3 Elapsed Hact 7:51.7 
3 Lines/CPU Min: 900 

3 Lexenes/CPU-Rin: 64276 

: Y Used: 476 pages 
: ee ation Complete 
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